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ABSTRACT 


The performance of a Twin-Spool Turbopump, wherein a gas turbine coaxially 
drives the inducer, was investigated as part of a study to evaluate various 
zero Net Positive Suction Pressure (NPSP) feed systems. Steady-state and 
transient tests were conducted in liquid hydrogen and the results were used 
to refine a computer program that predicts the performance of the Twin-Spool 
Turbopump. In addition, the extension of the operating range at zero NPSP 
(as compared to conventional pumps) was investigated along with the effect of 
varying the inducer turbine pressure ratio. It was found that the concept is 
applicable to the starting requirements of either chemical or nuclear engines 
and that the basic mechanical concept is a workable arrangement. 
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I. 


SUMMARY 


The Twin-Spool Turbopump testing is part of a NASA-Lewis Research 
Center study being conducted to assess various propellant feed system con- 
cepts for pumping rocket engine fuels at very low and zero values of Net 
Positive Suction Pressure (NPSP) . As used herein, NPSP is identified as 
the margin of propellant total pressure above vapor (saturation) pressure 
and is measured at the bottom of the propellant tank. 

The Twin-Spool Turbopump incorporates a low-speed inducer to supply the 
required inlet pressure to the main pump. This inducer is driven through a 
shaft which is coaxial with the main shaft. The drive source is a single- 
stage gas turbine located aft of the main turbine. 

The basic, 7 psl NPSP main-stage turbopump had been extensively tested 
previously at zero NPSP. Based upon existing rocket engine requirements, its 
performance over the desired operating range was unsatisfactory. Adding an 
Inducer stage provided a unique opportunity for evaluating the effect of the 
inducer stage upon the over-all performance of the turbopump. i 

A high-speed digital computer program was formulated in FORTRAN IV to 
predict the transient and steady-state performance of the Twin-Spool Turbo- 
pump. This program was based upon inducer, pxamp, and turbine characteristic 
curves. The test data were used to refine the program until predicted per- 
formance matched the actual test results. 

The following four basic types of tests were conducted in liquid 
hydrogen: 


- Flow traverses while maintaining a constant main-stage shaft 
speed. NPSP values of 20 psi, 5 psi, and 0 psi (13.78 N/cm^, 
3.44 N/cm2, and 0 N/cm^) were mapped. In some instances, 
considerable vapor was ingested by the unit. 

- NPSP traverses from 20 psi to 0 psi (13.78 N/cm^ to 0 N/cm^) 
while holding a constant flow and speed. 

- Simulated engine start ramps of three seconds and six seconds. 
The terminal NPSP's for the three second ramp were 20 psl and 
1 psi (13.78 N/cm^ and .689 N/cm^) while for the six second 
ramp, the terminal NPSP was 0 psi (0 N/cm^). 

- Inducer stage sensitivity tests to investigate the effect of 
varying the split between the main-stage and inducer stage 
turbine pressure ratios. This split was accomplished by uti- 
lizing orifices of various sizes to reduce the effective area 
of the exhaust line. 



The extremes in flow rate swing also were studied. This ranged from 
stall at the lowest flow to the point where the pressure rise showed a 
moderate degradation as a result of excessive flow rate. 

There was a very close correlation between actual and predicted per- 
formance, which permits the following major conclusions; 

- The Twin-Spool Turbopump exhibits an essentially non-cavitatlng 
performance, both in pressure rise and flow range, while operating 
at zero NPSP and with moderate vapor ingestion. 

- Based upon the transient start ramp response, the concept is 
applicable to either chemical or nuclear engine starting require- 
ments . 

- There is no problem connected with the sensitivity of the inducer 
stage to reasonable variations in the turbine exhaust system area. 

- Twin-Spool Turbopump performance can be predicted and is a func- 
tion of the accuracy of the predicted pump and turbine character- 
istics . 

- The accumulated running time (45 min at full-speed and over 

60 min total) demonstrates the basic mechanical concept to be a 
workable arrangement. 

- The Q/N range of the inducer is narrower than found in most boost 
pump concepts as a result of the power being extracted from the 
turbine drive gas (i.e., as main pump flow and power rise, the 
inducer sees almost the same percentage of increase in power). 

II. INTRODUCTION 


This report delineates the work performed at the Liquid Rocket 
Operations, Aerojet-General Corporation, Sacramento, California to complete 
Tasks I and II of Contract NAS 3-11231 (Investigation of Twin-Spool Turbo- 
pump Performance) , which was under the cognizance of the NASA-Lewis Research 
Center, Cleveland, Ohio. The two contractual tasks are described as follows: 

TASK I - The formulation and demonstration of a computerized 

mathematical model for prediction of steady-state and 
transient twin-spool turbopump operation. Refinement 
of the program in Task II was contingent upon the 
satisfactory completion of Task I. 

TASK II - Testing of the Twin-Spool Turbopump in liquid hydrogen 
and refinement of the computer simulation based upon 
actual test data. 


2 



Zero NPSP (the condition at which vehicle tank pressure equals pro- 
pellant saturation pressure) turbopump operation has been identified as a 
valid technique for Improving rocket engine performance. This is based upon 
strong evidence indicating increased mission reliability as a result of 
reduced tank/engine interaction and increased operating margins. In the 
case of the nuclear rocket, a substantial increase in performance appears to 
be possible resulting from the capability to pump tank residuals that are 
unavailable, because of nuclear heating, when a positive NPSP system is used. 

The fundamental consideration in a zero NPSP piamping system is whether 
liquid hydrogen at zero NPSP can be ingested into the pumping system and then 
pumped to the required pressure level needed for a particular application. 
Results from zero NPSP hydrogen pumping tests conducted by NASA-Lewis Research 
Center, Aerojet-General, the Pesco Division of Borg-Warner, and during the 
Centaur flights provide a strong confidence in the ability to achieve satis- 
factory pumping at zero NPSP in an operational turbopiimp system. From these 
requirements , it can be concluded that zero NPSP can be achieved and the 
resultant benefits are realistic. 

Recognition of these potential advantages is further evidenced by the 
Technology Program currently under way to investigate three low-speed inducer 
systems (the full-flow hydraulic turbine, the partial-flow hydraulic turbine, 
and the hubless Inducer). As a companion concept to these systems, Aerojet- 
General sponsored, designed, and fabricated a conversion of a NERVA Technology 
Turbopump to a Twin-Spool configuration. Basically, the concept is the addi- 
tion of a low-speed inducer in front of the main-stage pump. The inducer is 
driven by its own gas turbine, which is mounted just aft of the main-stage 
turbine and powered by the main-stage-turbine exhaust gas. The inducer and 
its turbine are mechanically linked by a coaxial shaft running through the 
center of the main-stage shaft. 

There appears to be two distinct advantages offered by the Twin-Spool 
Turbopump. First, there is a minimal increase in the envelope without any 
additional lines or valves. Secondly, there is fast starting and steady-state 
response resulting from the close-coupling of the inducer turbine to the main 
turbine . 

In addition to evolving the refined computerized mathematical model for 
predicting Twin-Spool Turbopump performance, this investigation provided an 
opportunity to evaluate the concept in context with the other Indicated low- 
speed inducer systems being studied. 

Twin-Spool Turbopump performance was established experimentally in the 
test program and was based upon transient and steady-state operation at NPSP 
values ranging from 20 psi to 0 psi (13.78 N/cm^ to 0 N/cm^). 

The main text of this report is divided into five major areas of over- 
all program consideration; inducer design (Including test results and main 
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pump discussion) , inducer turbine design (including test results and main 
turbine discussion), mechanical design, testing, and the computer program 
with refinements. Every effort has been made to assure that each of these 
major areas is largely self-contained and independent of each other. 

The symbols and nomenclature used throughout this report are defined 
in Appendix A. 
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III. 


INDUCER DESIGN 


The turbopump configuration utilized in the Twin-Spool Turbopump feasi- 
bility demonstration is a coaxial design which incorporates a low-speed 
inducer driven by a single-stage impulse turbine. An existing positive NPSP 
turbopump was modified by Incorporating newly-fabricated components to provide 
for the coaxial configuration. A cross-sectional schematic of this unit is 
included in the Mechanical Design discussion of this report (Figure No. 79, 
Section V, page 118) along with views of the assembly in the build-up stand. 

The main turbopump is made up of a single-stage centrifugal pump with 
an integral inducer driven by a two-stage impulse turbine. A hollow shaft is 
used to couple the turbine to the pump through a liquid-hydrogen-cooled bear- 
ing housing. 

The low-speed inducer is driven through a single-stage Impulse turbine 
by a solid shaft, which passes through the hollow shaft of the main-stage 
rotating assembly. Both the inducer and the Inducer turbine are supported by 
liquid-hydrogen-cooled bearings . 

Labyrinth seals were placed at the turbine and pump ends of the main 
shaft to prevent turbine drive gas from entering the main pump inlet. The 
labyrinths are designed to provide for pressurization of the cavity between 
the high-speed and low-speed shafts by utilizing a portion of the main-stage 
bearing coolant flow. 

A. DESIGN REQUIREMENTS 

The inducer stage is required to produce pressurized liquid with 
steady and reliable NPSH from Initially boiling fluid so that cavitation in 
the pump main stage can be greatly reduced or even eliminated. The NPSH 
requirements of the main stage were determined from test data and are pre- 
sented on Figure No. 1, which relates the pump head coefficient to the ratio 
of NPSH to the inlet velocity head NPSH/C^m/2g) for a family of inlet flow 
coefficients. The design flow rate range for the Inducer was established 
from 45 Ib/sec (20.4 kg/s) to 77 Ib/sec (34.8 kg/s), because considerable 
cavitation on the main pump had previously been gathered and the flow range 
was compatible with the other low-speed Inducer studies. The predicted suc- 
tion performance of the main stage for 77 Ib/sec (34.8 kg/s), (0j^'P = 0.11), 
was extrapolated from test data and is represented by the dashed line on 
Figure No. 1. It can be seen that the inducer stage would have to supply an 
NPSH of at least 15 c2m/2g or 1260 ft (384 m) to achieve acceptable pump 
performance. Such a head rise could be supplied by a cambered inducer. The 
Inducer design requirements are summarized on Table I. 
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TABLE I 


INDUCER DESIGN REQUIREMENTS, PARAMETERS, AND PREDICTIONS 
1. Design Requirements 


Fluid . 

LH2 


Approximate fluid temperature 

38.5“R 

21°K 

Fluid density (liquid) 

4.3 Ib/ft^ 

68.9 Kg/m^ 

NPSH 

One Velocity Head 

Maximum vapor content in percent of total 
volume 

20 


NPSH main-stage inlet 

1260 ft 

384 m 

Design Parameters 
Rotational speed 

10,100 rpm 

105 rad/ s 

Fluid velocity, inlet line (unblocked) 

32.8 ft/sec 

10 m/s 

Fluid velocity, inducer inlet (w/hub 
blockage) 

39.8 ft/sec 

12.1 m/s 

Tip speed 

437.5 ft/sec 

133.5 m/s 

Inlet tip flow coefficient 

0.091 


Incidence-to-blade angle ratio (1/g) 

0.527 


Discharge mean flow coefficient 

0.20 


Stator inlet through flow velocity 
(unblocked, one-dimensional) 

57.2 ft/sec 

17.4 m/s 

Stator discharge through flow velocity 
(unblocked, one-dimensional) 

72.0 ft/sec 

22 m/s 

Design Predictions 



Over-all head rise 

1305 ft 

398 m 

Over-all efficiency 

54.5% 

2.5 X lO^w 

Shaft horse power 

355 hp 

Head loss at 20% vapor by volume 

13.5% 
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B. INDUCER 


!• Inlet Geometry 

The inducer Inlet tip diameter was sized for the maximum flow 
rate of 77 Ih/sec (34.0 kg/s), a fluid density of 4.3 Ib/ft^ (48.1 kg/m^), a 
hub ratio of 0.4, and an inlet velocity of 40 ft/sec (12.2 m/s). The 

inlet velocity corresponds to the limitations for low-speed inducers recom- 
mended by the NASA/Lewis Research Center (personal contacts in December 1966) , 
namely; 


Through Flow Velocity Cm 40 ft/sec, (12.2 m/s) 

Tip Velocity U.ji^ 500 ft/sec, (152.5 m/s) 

Nq1/2 2q 6 (gpm)^^^ 

(8.34 X 10^ rad/s (m^/s)^'^^) 

1/2 

The inlet velocity Cm is based upon liquid fluid, while NQ 
is indirectly specified by the limits of Cm and U^. The recommended flow 
coefficient calculated from the above values is 0.08, and the equivalent fluid 
angle is 4.658 degrees (0.0813 rad). 

It is known that for a given blade inlet angle, the incidence 
angle determines the blade leading edge loading and the cavity shape formed. 
Large incident results in high leading edge loading. However, with low-speed 
inducers, a large incidence- to-blade-angle ratio (i/6) can be better tolerated 
structurally and is desired because it allows greater volumetric flow excur- 
sions or increased vapor ingestion (Ref. 1). In initial calculations, an 
assumed i/6 value of approximately 0.6 resulted in a blade inlet tip angle 6ii 
of 11 degrees (0.192 rad). This inlet angle was maintained in the final 
design as it agrees with that of a NASA inducer for which characteristic per- 
formance curves are well established. A later uprating of performance predic- 
tions dictated a decrease in the rotational speed to match the initial power 
requirements for the turbine. The resulting design speed of 10,000 rpm 
(1058 rad/s) yielded a higher flow coefficient of 0.091 and a lower i/6 value 
of 0.527. Based upon the latter value, it was estimated that the inducer 
would be able to ingest approximately 15% to 20% of vapor by volume at a 10% 
Inducer head loss at the design point. The predicted suction performance is 
depicted on Figure No. 2, where head loss is plotted as a function of volu- 
metric flow. 


2. Meridional Flow Path 

The tip contour was maintained cylindrical, while the hub was 
increased towards the discharge to guide the flow around the bearing assembly. 
The minimum practical discharge hub diameter, therefore, was dictated by mechan- 
ical design considerations. The resulting discharge mean flow coefficient is 

0.2, and the flow coefficient ratio 0„„/0.,, is 1.67. 

2M IM 
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The meridional flow path is shown on Figure No. 3 and the 
through-flow area distributions (blocked and unblocked) are presented on 
Figure No . 4 . 


3. Blade Angle Distribution 

The inducer was designed with radial blade elements (tangent 
of blade angle inversely proportional to radius at any axial position) for ease 
of manufacture. Minimum blade angle distribution was computed as a function of 
the through-flow area for a constant Euler head evaluated at the leading 
edge. The inducer discharge blade angle was increased by approximately 
5 degrees (0.0871 rad) to account for channel and stator losses and to obtain 
an adequate NPSH margin. Final blade angle distribution was obtained by 
arbitrarily fairing a smooth curve from the value fixed at the discharge to 
the required minimum values of the inlet section. The resultant blade camber 
is approximately the same as that of the M-1 Fuel Pump inducer (Ref. 2). A 
short, helical blade section was provided at the inlet to maintain a constant 
passage area in the inlet portion of the blade row. The solidity of this 
section is approximately one at the hub and slightly lower at the tip because 
of the blade trim. NASA data (Ref. 3) indicate that the addition of a helical 
blade portion at the inlet of a similar inducer resulted in a performance 
gain. The blade angle distribution for the tip and the hub is presented 
on Figure No. 5 while the Euler’s head distributions are shown on Figure 
No. 6. 


4. Number of Blades 


Four full blades and four partial blades were selected to 
maintain an acceptable rotor length or a reasonable L/D value for a desired 
over-all solidity of approximately 4.0. The four-blade inlet section and 
the eight-blade discharge section have approximately equal solidity. 

5. Blade Shape 

Improved performance and Increased operating life is realized 
with thin blades or higher strength material. Titanium AllO basically was 
selected for this reason as well as its higher fatigue strength and cavitation 
erosion resistance. A maximum blade root thickness of 0.300-in. (0.762 cm) was 
extrapolated from similar inducer designs. This value is equal to approximately 
one-half of the cavity height at the design flow rate. The same proportions are 
maintained at the tip, where a thickness of 0.110-in. (0.270 cm) was established. 

To simplify fabrication, the blades are designed to be machined 
with constant cutter offset; a method which results in a variation in blade 
thicknesses. A 3/8-in. (0.952 cm) tapered ball-end cutter was specified, 
based upon the minimum blade spacing at the beginning of the short partial 
blades. A nominal blade leading edge thickness of 0.010-in. (0.0254 cm) 
was selected for good suction performance. The blade thickness distribution 
is plotted on Figure No. 7. 
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Figure 3. - Inducer Meridional Flow Path. 








Figure 4. - Inducer Through-Flow Area Distributions. 
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Figure 5. - Tip and Hub, Blade Angle Distribution. 
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Figure 6. - Inducer Eulet's Head Distributions 



Figure 7. - Inducer Blade Thickness Distribution. 



The blade inlet tip was swept back 37-degrees (0.65 rad) to 
improve the stress distribution in the thin overhang portion of the blade. 
Fairing on the low pressure side of the blade is such that the resulting wedge 
angle is equal to the incidence angle at 120% of the design flow coefficient. 

The rotor geometry is summarized on Table II. 

6. Blade Loading 


The hydraulic blade loading was determined from a computer 
program based upon the free streamline wake theory (Ref. 4) of a flat plate. 
The maximum load occurs at the highest speed, lowest flow coefficient, and 
highest NPSH. The load analysis was conducted for the following condition: 


Speed = 

Flow Rate W = 
NPSP = 
Fluid Density = 


13,500 rpm (1415 rad/s) (122.5% 

DLb 

77 Ib/sec (34.8 kg/s) 

50 psi (34 N/cm^) 

4.4 Ib/ft^ (70.5 kg/m^) 


Results are plotted on Figure No. 8 (as lines of constant 
pressure, isobars) superimposed on the blade leading edge. 


7 . Analysis 

One-dimensional inlet and discharge velocity triangles are 
shown on Figure No. 9. The incidence angles of 1-degree, 3-degrees and 
6-degrees (0.0175, 0.0349, and 0.015 rad) for tip, meridional, and hub were 
based upon a survey of flat plate inducer traverse data. A rotor hydraulic 
efficiency of 0.82, based upon NASA measurements (Ref. 3) rather than an 
average loss coefficient value, was used to calculate the actual inducer head 
rise. 


The one-dimensional calculation was verified against a 
computer solution based upon simple radial equilibrium. The program used in 
this analysis was written for the high-speed digital computer and basically 
is similar to the Aerojet-General Computer Program, Job 10001, which uses the 
method described in Ref. 5. For simplification, incompressible and axi- 
symmetric flow with no streamline curvatures was assiamed. The output parameters 
describe the flow distributions at the inlet and the discharge of the rotating 
blade row. 


Loss coefficients and deviation angle distributions of the 
M-1 Fuel Pump initial design inducer were used in the analysis because of the 
great similarity between the two rotor configurations and the good agreement 
in blade camber angle. These input data are plotted on Figures No. 10 and 
No. 11. 
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TABLE II 


INDUCER AND STATOR GEOMETRY 

Inducer P/N 1134680-1 
Suction line inside diameter 
Tip diameter 
Inlet hub diameter 
Hub ratio 

Blade inlet tip angle 
Discharge hub diameter 
Discharge tip angle 
Number of full blades 
Number of partial blades 
Total number of blades 
Over-all tip solidity 

Stator P/N 1134695-1 


Inlet tip diameter 

10.000 in. 

25.4 cm 

Inlet hub diameter 

6.300 in. 

16.0 cm 

Inlet blade angle 

22“ 

0.384 rac 

Discharge tip diameter 

7.050 in. 

17.9 cm 

Discharge hub diameter 

1.720 in. 

4.36 cm 

Discharge blade angle 

90“ 

1.57 rad 

Maximum blade thickness 

0.50 in. 

1.27 cm 

Number of blades 

11 


Blade solidity 

2.1 


Blade turning angle 

O 

CO 

1.19 rad 


10.000 in. 
9.880 in. 
4.000 in. 

11 “ 

6.400 in. 
24“ 


0.405 


4 

4 

8 

4.0 


25.4 cm 

25.2 cm 

10.2 cm 

0.192 rad 

16.3 cm 
0.419 rad 
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Figure 9. - Velocity Vector Diagrams. 
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Figure 10. - Loss Coefficient vs (R-R^) / (R^-Rj^) . 











The results are presented In terms of the through-flow 
velocity distribution on Figure No. 12, the absolute velocity distribution on 
Figure No. 13, and the absolute fluid angle distribution on Figure No. 14. 

The mass averaged head rise from the two-dimensional solution resulted in 
2268 ft (693 m) , compared with 1993 ft (608 m) from the one-dimensional 
analysis. It should be noted that the hydraulic efficiency of 0.82 used in 
the one-dimensional analysis results in a higher average loss coefficient 
than that represented by the loss coefficient distribution assumed in the 
two-dimensional analysis. Therefore, the first analysis yields a more 
conservative head rise. This lower value was used for predicting the stage 
performance. The fluid angle and velocity distributions resulting from the 
second analysis were considered in the designs of the inducer stator. 

C. STATOR 

The stator blades serve the twofold purpose of turning and 
discharging the fluid axially into the main-stage inlet while simultaneously 
providing adequate structural support for the inducer bearings. The blades 
also provide access routes for instrumentation and bearing coolant flow. 

1. Meridional Flow Path 


Inlet and discharge through-flow areas are fixed by the 
inducer and main-stage geometry. The shroud profiles represent gradual 
transitions from inlet to discharge and were shaped to provide a smooth 
distribution in through-flow area (see Figures No. 15 and No. 16). In the 
through-flow direction, the fluid is accelerated from 57.2 ft/sec (17.5 m/s) 
at the inlet to 72 ft/sec (22 m/s) at the design flow rate. 

2. Blade Design 

The blade inlet angle was matched to an average value of 
fluid angle with an incidence of approximately 6-degrees (0.105 rad) at the 
mean radius. For simplicity, the resulting blade angle of 68 degrees 
(1.19 rad) was kept constant from hub to tip and the blade discharge portion 
is axial (x = zero) . The blade angle distribution at the tip follows a 
circular arc and is presented on Figure No. 17 as a function of wrap. Similar 
distributions for the mean and hub streamline are shown on Figures No. 18 
and No. 19 along with the blade thickness distributions. Originally determined 
from a sjnnmetrlcal airfoil, the thickness distributions were modified to 
obtain a smooth passage area distribution (see Figure No. 16). The maximum 
blade thickness of 0.53-ln. (1.35 cm) resulted from a compromise between a 
good passage area distribution and a smooth blade profile as well as the 
requirement for routing holes. The ratio of throat area to discharge area 
(within the blades) was maintained to a minimum value of 0.60 to limit the 
degree of retardation. The stator contains 11 blades. 

Stator inlet velocity vector diagrams for tip, mean, and hub 
streamline are shown on Figure No. 20. The diffusion factors calculated 
account for the change in radius and are defined as: 


22 




Figure 12. - NERVA Technology Pump Low-Speed Inducer Through-Flow 
Velocity vs Discharge Radius (Blocked) . 





Figure 13. - NERVA Technology Pump Low-Speed Inducer Absolute Velocity 
vs Discharge Radius (Blocked) . 








Figure 16. - Stator Through-Flow Area Distributions 
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Figure 17. - Tip Angle and Thickness Distribution (2X Size) 
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Figure 18. - Meridional and Thickness Distribution 





Figure 19. - Hub and Thickness Distribution 
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For a blade solidity o' of 2.1, the calculated diffusion 
factors for tip, mean, and hub are 1.0, 0.95, and 0.87. These excessive values 
would not be acceptable for a high performance design. To obtain lower values, 
the fluid turning angle would have to be lowered or either a split or tandem 
stator be considered. 


The cavitation parameter is defined as 


V - hs - hv 
K- 2 

/2g 

One-dimensional calculations Indicate that for all radial 
locations at the stator inlet, the K values are greater than one. The 
minimum required value of K for incipient cavitation based upon the Lieblein 
approximation for airfoils is 0.25. 

The stator geometry is summarized on Table II. 


D. DESIGN AND OFF-DESIGN PERFORMANCE 

Stator performance and overall stage performance was estimated 
from measured and calculated data of the Hydraulic Turbine Driven Inducer 
(Ref. 6), which contains a similar stator design. Both stators have excessive 
blade diffusion and the same characteristic solidity. The predicted recovery 
in velocity head at design conditions is 11% and the over-all head rise, based 
upon the one-dimensional rotor head rise of 1993 ft (608 m) , is approximately 
1305 ft (398 m) . Thus, the predicted non-cavltating head generating ability 
of the inducer stage is adequate to supply the required 1260 ft (384 m) of 
NPSH at the main-stage inlet. The small margin and the reasonable degree of 
conservatism in the prediction provide a contingency for cavitation losses. A 
dimensionless off-design performance comparison is shown on Figure No. 21. 

The required shaft horsepower at the design condition is 335 hp 
(2.5xl0^W). This value is based upon an over-all efficiency of 0.545 deter- 
mined from the ratio of the over-all head rise to the input head. 

E. INDUCER/MAIN-STAGE PUMP EXPERIMENTAL PERFORMANCE 

Generally, the performance of the over-all system, the main-stage 
pump, and the low-speed inducer correlated sufficiently close to the predic- 
tions to demonstrate a pumping system operational capability over the complete 
design flow coefficient range as well as down to tank values of NPSP that were 
at least as low as the design value. 
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Test speeds at the maximum flow coefficient were limited by the 
cold gas supply used to drive the turbine. Accurate stage performance could 
not be evaluated below the design flow coefficient because the temperature and 
pressure values recorded at the interstage (inducer stator exit) measuring 
station were higher than reasonable. Apparently, these conditions are caused 
by reverse flows exiting from the main-stage impeller. Similar conditions 
were experienced with the Titan I and Titan II pumps. 

The ensuing discussions deal with the main-stage, low-speed inducer 
stage, and over-all pumping system steady-state performance results as well as 
system transient performance. Assumptions made in interpreting these results 
also are Included. 

1. Main-Stage Pump 

Figures No. 22 and No. 23 show a comparison between the data 
obtained in this program and the established performance of the same pump from 
a previous test program (Ref. 9) in terms of head coefficient and efficiency 
as a function of flow coefficient. A marked difference in efficiency occurs 
from a flow coefficient of approximately 0.135 to 0.053. This difference is 
attributed to a temperature increase in the interstage, inducer-stator dis- 
charge temperature caused by reverse flows exxting from the main-stage 
impeller and possibly is aggravated by leakage from the inducer bearing cavity 
through the labyrinths. There also is some indication of an increase in pres- 
sure at this measuring station. However, the effect of the temperature 
increase outweighs the pressure increase, resulting in efficiency and head 
coefficient values that are greater than expected. 

The two inducer "design points" shown on Figure No. 22 cor- 
respond to the inducer operating at the design speed and the actual speed 
obtained during the tests. Generally, the inducer speed was less than pre- 
dicted; therefore, the main-stage flow coefficient, at which the inducer 
operated at design flow coefficient, is less than the original design value. 

Main-stage stall was incurred during two tests, one of which 
resulted in an overspeed condition. The main-stage was stalled twice during 
test -001 at the shaft speed of 10,989 rpm (1150 rad/sec). Stall occurred at 
^ms ~ 0.046 at NFSH^-j^ = 242.4 ft (73.88 meters) and at = 0.048 at boiling 
conditions within the run tank. The stall that resulted in an overspeed con- 
dition was incurred in test -007, occurring at 0jj,g = 0.052, shaft speed of 
22,078 rpm (2312 rad/sec), and NPSH = 22.4 ft (6.91 meters) in the tank. The 
unloading of the main-stage impeller caused an acceleration rate of approxi- 
mately 18,000 rpm/sec (1885 rad/sec^). The stall points were close to those 
obtained in previous tests. 
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The suction characteristics of the main stage are shown on 
Figures No. 24 through No. 27 as plots of head coefficient and head loss as 
a function of Net Positive Suction Head (NPSH) entering into the main-stage 
pump. Performance is similar to that obtained previously (Ref. 9) with initial 
loss in head occurring at approximately 10 psi to 20 psl NPSP, depending upon 
the flow coefficient. 

2. Low-Speed Inducer Stage 

Head coefficient and efficiency data as a function of flow 
coefficient are illustrated on Figures No. 28 and No. 29, respectively. The 
accuracy of the data presented should be noted because of the magnitude of 
the measurements taken and the difference in measurements that are calculated. 
The suction pressure error at 3a is + 0.25 psi (0.172 newton/ cm^) and the 
discharge to the stator at 3a is + 0.5 psl (0.344 newton/cm^) . The temperature 
measurement at 3a is + 0.17®R\(0.0945®K) . Figure No. 28 indicates that the 
head coefficient obtained was within predictions; however, the efficiency 
shown on Figure No. 29 was not. Again, it appears that the previously 
mentioned (main-stage discussion) inaccuracy of the interstage instrumentation 
is the cause. Use of the Inducer rotor discharge temperature rather than 
the stator discharge temperature results in a non-cavitating efficiency value 
at the design flow coefficiency (0.091), of 74% which better correlates with 
the design predictions although it is 18 points higher than predicted. An 
accurate estimate of stage efficiency is not possible with the instrumentation 
used. It would be difficult in any case with staging of this type in liquid 
hydrogen. 


Stall of the inducer stage occurred at a flow coefficient of 
approximately 0.062 as indicated by the lower values of the data points to 
the left of this value on Figure No. 28. The inflection shown in the predicted 
curves corresponds to a characteristic obtained from a more lightly-loaded 
rotor stalling at approximately the same point. The higher loading of the 
stator and rotor in the current application could be expected to give a 
sharper drop or "step." In this case, the stator stall would be expected to 
cause the step. 


Figures No. 30 through No. 46 show head coefficient versus 
NPSH in the run tank as well as the vapor content once saturation conditions 
were reached. The vapor content of the fluid (hydrogen) was calculated 
assuming an isentropic process. The saturation point was taken at the point 
where the static pressure in the tank becomes lower than the vapor pressure 
as indicated by the temperature measurement in the tank. This occurs as a 
result of the difference in the response time of the temperature and pressure 
transducers. These plots indicate the low-speed stage suffered little or no 
loss in head from positive NPSH^.]^ to saturation conditions. The loss was 
less than expected (as Indicated on Figures No. 28 and No. 29 for saturated 
conditions). The test was conducted at a temperature range of from 37.5“R 
(20.8®K) to 39.5°R (21.9°K). The maximum vapor content achieved was in 
excess of 40% vapor by mixture volume (see Figure No. 39). At that instant, 
the main-stage suffered an approximate 6% loss in head. 
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Figure 25. - Main-Stage Performance, ^ vs NPSH (15,000 rpm, 19,000 rpm 
16,950 rpm, 15,100 rpm, and 10,820 rpm). 
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Figure 26. - Main-Stage Performance, Head Loss vs NPSH (22,000 rpm) . 
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Figure 27. - Main-Stage Performance, Head Loss vs NPSH (15,000 rpm, 
19,000 rpm, 16,950 rpm, 15,100 rpm, and 10,820 rpm). 
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Figure 30. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -007 (4100 rpm) . 




45 


Figure 31. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -006 (7950 rpm) . 




Figure 32. - Inducer Performance, Head Coefficient vs Vapor Volume 
and NPSH in Tank, Test -007 (6200 rpm) . 
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Figure 33. - Inducer Performance, Head Coefficient vs Vapor Volume and 
NPSH in Tank, Test -007 (6860 rpm) . 
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Figure 34. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -006 (7680 rpm) . 
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Figure 35. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -005 (8280 rpm) . 
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Figure 36. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -005 (8030 rpm) . 
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Figure 37. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -004A (8200 rpm) . 
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Figure 38. - Inducer Performance, Head Coefficient vs Vapor by Volume and 
NPSH in Tank, Test -006 (7370 rpm) . 
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Figure 39. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -003 (7820 rpm) . 
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Figure 40. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -005 (7680 rpm) . 




55 


Figure 41. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -006 (7000 rpm) . 
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Figure 42. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -005 (7280 rpm) . 
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Figure 43. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -006, (4460 rpm) . 
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Figure 44. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -006 (6700 rpm) . 
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Figure 45. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -006 (5865 rpm) . 
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Figure 46. - Inducer Performance, Head Coefficient vs Vapor by Volume 
and NPSH in Tank, Test -005 (6800 rpm) . 



Figures No . 47 and No . 48 show head loss as a function of 
suction specific speed as well as a function of cavitation parameter, t, 
from positive to saturation suction condition at the inlet of the low-speed 
stage. The relative trend for the losses are shown, but there are 
discrepancies within the trend because of the accuracy of the measurements 
and the interstage conditions. For example, if the worst conditions for 
error occur at a pressure rise of 30 psi (20.68 newton/ cm2), the error in 
the pressure rise would be 0.75/30 or 2.5%. 

In general, the head rise-NFSH characteristics of the Inducer 
exhibit the same gradual positive downslope observed in most previous tests 
of low NPSH hydrogen inducers and pumps. This would not appear to be a 
problem for rocket engine applications; therefore, relatively low or zero 
tank NPSH appears to be practical over a relatively wide flow coefficient for 
low-speed boost pumping type systems, even with relatively cold hydrogen. 

3. Over-All Pumping Systems and Stage-Matching Characteristics 

The flow rate/speed interrelationship between the low- and 
high-speed stages is shown on Figures No. 49 and No. 50. Using these curves 
and the suction characteristic curves (ip vs NPSH) , it is found that the main- 
stage suffered essentially no loss in head rise from 0ms = 0.053 to 
approximately 0ms “ 0.140 for tank conditions from positive NPSH to saturation 
conditions. This also is reflected on Figure No. 51, which shows that at a 
0ms = 0.140 and saturation condition at the inducer inlet, cavitating head 
loss conditions will occur in the main-stage. At a NPSP value of 14.5 psia 
(9.99 newton/cm2) and main-stage shaft speed of 22,000 rpm (2303 rad/sec), 
cavitation does not occur within the main-stage until 0ms = 0.168. Figure 
No. 50 also depicts the Influence of turbine back pressure upon the low-speed 
shaft speed. Generally, at the same main-stage speed and flow coefficient, 
the inducer (low-speed stage) shaft speed decreases as the back pressure is 
Increased. It should be noted from Figure No. 49 that the useful range of 
flow coefficient for the main-stage was greater than the low-speed stage 
(viz., the main-stage operation ranged from 0ms = 0.053 to 0.172 while the 
low-speed stage operation ranged from 0n> == 0.071 to 0.151). This is 
desirable, because the low-speed stage ordinarily has less cavitating 
operating (flow coefficient) range than the main-stage. 

The composite operating map. Figure No. 52, is based upon 
the data acquired and the Inducer shaft speed is based upon no restriction 
in the turbine exhaust line. The map depicts two inlet conditions to the 
low-speed stage, NPSP = 15 psia (10.34 newton/cm2) and saturation conditions. 
Figure No. 53 illustrates the amount of pressure rise contributed by the 
low-speed stage to the main-stage pressure rise at a main-stage shaft speed 
of 22,000 rpm (2303 rad/sec). 
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Figure 47. - Inducer Performance, Head Loss vs Suction Specific Speed. 
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4. Transient Performance 

The transient characteristics for the twin-spool pump are 
shown on Figures No. 54 through No. 60. The data from^ tests -003 and -004A 
are shown on Figures No. 54 and No. 55, respectively. During the pre-test 
transient prediction, it was found that the rotational acceleration of the 
inducer was such that there would be a period at which there will be a 
negative pressure rise across the low-speed stage. The data depict this 
condition starting at 73.9 sec in test -003 and 65.7 sec in test -004A. 

Figures No. 56 and 57 show transient start data. The transient speed ratio 
differs from the steady-state speed ratio by a factor 2 at the very beginning, 
but quickly return to the nominal ratio for steady-state operation. A 
satisfactory system bootstrap capability was demonstrated for the required 
transient durations and fluid suction conditions. The lag in inducer speed 
can be reduced if the mass of the rotor is reduced. Figures No. 58, No. 59, 
and No. 60 show rotational speed and pressure as a function of flow rate. 

A comparison of the three transient conditions shows that the relative slopes 
of the curves are almost identical with magnitude being the only difference. 

The magnitude primarily is a function of the tank pressure, 

5. Comparison with Other Boost Pump Types 

The primary concern for rocket engine pumping application 
where the main-stage pump unit operates over a wide flow coefficient range 
is the corresponding flow coefficient range of the low-speed boost pump. The 
inducer tends to have a relatively narrow flow coefficient range of operation 
for low NPSH applications. Figure No. 61 presents a comparison of the various 
boost pump types investigated to date (Ref. 6, 10, and 11). As indicated, the 
twin-spool concept exhibits a desirably narrow inducer flow coefficient range. 
The narrower operating range allows the inducer to run closer at its best 
operating point, both for cavitation and efficiency, over the entire operating 
range of the unit. The partial flow hydraulic turbine drive types, both top 
turbine and hub turbine, tend to have less desirable characteristics, depending 
upon the head-flow slope of the main-stage pump, but characteristics similar 
to those of the twin-spool can be obtained if the turbine flow is throttled. 

The full-flow concept without stator vanes (Ref. 11) tends to have undesirable 
characteristics for wide flow coefficient range because of the hydraulic 
transmission requirements which are needed to ensure stable (hydraulically- 
locked) operation. 

The twin-spool and partial-flow hydraulic turbine driven 
concepts are quite flexible with respect to capability for range of high- 
shaft/low-speed ratio as well as over-all boost pump head rise applicators. 

The full-flow concept is less flexible because hydraulic transmission design 
considerations place upper limits upon the permissible high-shaft /low-shaft 
speed ratio and system head rise. 

All of the boost pump systems discussed above tend to have 
some speed build-up lag during engine thrust build-up transients. Only the 
partial-flow top-turbine-driven concept has been demonstrated (Ref. 12) to 
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Figure 54. Transient Characteristics; Pressure, Speed vs Time, Test 
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Figure 55. Transient Characteristics; Pressure, Speed vs Time, Test -004A 
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Figure 58, Transient Characteristics; N , Pressure vs Flow Rate, 
Test -003 
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Figure 59. Transient Characteristics: N , Pressures vs Flow Rate 
Test -004 
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Figure 60. Transient Characteristics; N , Pressures vs Flow Rate 
Test -004A 
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Figure 61. Comparison of Twin-Spool Turbopump Low-Speed Inducer and 

Main-Stage Pump Flow Coefficient Variation with Other Boost 
Pump Types 
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have a capability for start transients of less than one second, which are 
representative of some gas-generator (bleed-cycle) chemical engine starts. 
Work currently in progress or recently completed Indicates that all the 
systems have adequate capability for transients of three seconds or more, 
which are typical of preburner and topping cycle chemical engines and all 
graphite core, nuclear rocket concepts. 

The relative capability of the various systems for rapid 
chllldown and start with cryogenic propellants has not been investigated in 
any detail to date. 

The use of liquid hydrogen presents no particular problem 
for the twin-spool and full-flow hydraulic turbine concepts. However, some 
potential problems with cavitation could be inherent in the partial-flow 
hydraulic turbine concepts because of the relatively high internal energy of 
the fluid leaving the hydraulic turbine and entering the main pump flow 
stream. 


The partial-flow hydraulic turbine driven concepts permit 
operation of a boost pump remotely located from the main-stage pump while the 
full-flow, hydraulic-turbine-driven, and twin-spool concepts do not have' this 
flexibility. 


Gas- turbine-driven boost pumps (i.e.. Centaur Vehicle pumps) 
having turbine pressurization which is independent of the engine tend to 
operate generally independent of the main engine pumps; therefore, this 
concept was not included in the above discussion. 

6. High-Frequency Pressure Data 

The oscillatory conditions of the pump suction and discharge 
pressure are depicted on Figures No. 62 through No. 67. Figure No. 62 shows 
plots of the maximum amplitude and the frequency at which the maximum amplitude 
occurred versus time for the start-up conditions of Test -004A (3 sec ramp) . 

The values were taken from a spectrum analysis tabulation reduction program. 
Three predominant amplitudes are shown for the inducer inlet, at 0.35 sec, 

2.75 sec, and 3.75 sec. The first major amplitude, at a time of 0.35 sec, 
is believed to have been caused by the opening of the turbine control valve. 

The third amplitude, at a time of 3.75 sec, occurred at a frequency of 
980 hz and the inducer shaft speed of approximately 3000 rpm (314 rad/sec). 

The second major amplitude, at a time of 2.75 sec, occurred at a frequency 
of approximately 1180 hz. This is significant because it is the frequency 
at which the predominant amplitude for the main-stage discharge pressure 
oscillation occurred, at a time of 1.5 sec. 
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Figure 67. - Pressure Oscillation vs NPSP, Test -007 (N = 6200 rum 
N = 15,130 rpm). I ^ 
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A comparison of these points reveals that both occur at 
approximately identical shaft speeds; with the earlier main stage, it was at 
5500 rpm (575 rad/sec) and with the later inducer stage, it was at 5200 rpm 
(544 rad/sec) . It is estimated that this range might be the fundamental 
bending critical frequency of the inducer shaft (low-speed shaft). Also, the 
fundamental frequency of the second-stage turbine rotor is in this range. 

The ratio of the measured frequency to rotational frequency is approximately 
13. 


The steady-state conditions where the suction pressure was 
varied are depicted for various flow coefficients on Figure No. 63 through 
Figure No. 67. The plots display data obtained from the spectrum analysis 
program of the major frequencies observed. As shown, for the suction 
conditions for main-stage flow coefficients from 0.093 to 0.144, three major 
frequencies were observed at 780 hz, 980 hz, and 1180 hz. The frequency of 
780 hz is believed to be the natural frequency of the pressure perturbation 
while the 980 hz and 1180 hz frequency are probably related to the natural 
frequency of the low-speed shaft. 


The main-stage pressure oscillation frequency for 0ms = 0.093 
to 0.144, seems to be 390 hz or approximately a multiple of 390 hz, which is 
approximately the rotational frequency (367 hz) . 


The predominant frequency for the high-flow, high NPSP portion 
of the tests at 0ms = 0.172 and 0.178, was 2550 hz. The frequency of the 
pressure oscillation is approximately six times the rotational frequency; 
also, the expected fundamental frequency of the inducer blade was predicted 
to be between 2000 hz and 3000 hz. Additionally, the Inducer inlet exhibited 
high amplitude 2740 hz oscillations at the 0ms = 0.172 condition for NPSP 
values ranging from 2 to 5. 


The predominant frequency range notices during the stall 
conditions of the main-stage at 22,000 rpm (2303 rad/sec), for both the section 
and discharge pressures, was 4900 hz to 5680 hz. The maximum amplitude for 
the discharge oscillation was approximately 13 psi (9.0 N/cm^) ; for the 
suction was 9.2 psi (6.3 N/cm^) . The data indicate that the pressure wave 
created within the main-stage is propagated upstream into the run tank during 
the main-stage stall. 

F. CONCLUSIONS 

1. The non-cavitating performance of both the low-speed and 
main stages was as expected considering the limitations imposed by the 
accuracy of interstage pressure and temperature measurements. 
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2. The flow coefficient range at zero tank NPSP exceeded 
design requirements. 

3. The system demonstrated a satisfactory pumping capability 
over the design flow range while ingesting 30% vapor by volume in the low- 
speed inducer suction annulus. 

4. The system demonstrated a capability for flow rate-pressure- 
speed build-ups to nominal steady-state values in approximately 3 sec. A low 
pre-start NPSP value could not be used because of test facility limitations; 
however, bootstrapping to steady-state NPSP values of approximately 1 psi 

and 0 psi were demonstrated for the nominal 3 sec and 6 sec start transients, 
respectively. 


5. The twin-spool concept exhibited generally good hydraulic 
characteristics during steady-state and transient applications. Based upon 
the testing results obtained to date, it appears that this system is one of 
the more promising alternatives to two-phase/hydrogen pumping. 
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IV. 


INDUCER TURBINE FLUID DYNAMIC DESI(a^ AND PERFORMANCE EVALUATION 


A single-stage, axial-flow turbine was designed for the Twin-Spool 
Turbopump feasibility demonstration. A NERVA technology turbopump provided 
the main stage while a new turbine-driven inducer constituted the Inducer 
stage. Ambient temperature gaseous hydrogen was used as the turbine drive 
gas throughout the testing. 

The primary purpose of the program was to demonstrate the feasibility 
of the twin-spool concept; therefore, no optimization of the turbine configura- 
tion was considered justified. 

The low power and speed dictated by the inducer requirements and a high 
exit flow Mach number at the main turbine exit led to very unconventional 
turbine blading and low design point efficiency. This efficiency was correlated 
by a simplified blade loss analysis, using the Soderberg approach. 

In addition to the design-point efficiency prediction, off-design perfor- 
mance curves were estimated and used to calculate the equilibrium conditions 
for the main turbine and the inducer turbine running in series over a wide 
operating range. 

Finally, turbine test data from five turbopump tests, using room 
temperature hydrogen for the turbine drive, were evaluated and compared with 
predicted performance. 

A. DESIGN ANALYSIS 

1. Main Turbine Operating Point 

The main turbine power required to drive the (main-stage) 
Impeller at design Q/N and a speed of 22,000 rpm (2310 rad/s) was calculated 
to be 4610 shp (3438 kw) . The hydrogen gas temperature was assumed to be 
1200°R (667°K) for the design calculations. 

Test stand exhaust line impedance and the anticipated pressure 
drop across the inducer turbine established the main-stage exit static pressure 
of 45 psia (31 n/cm^) . 

The plots of the main-stage flow-parameter and static- 
efficiency characteristics are shown on Figures No. 68 and No. 69, respectively. 
These plots are based upon previously obtained experimental data. 

The total-to-statlc pressure ratio across the main turbine was 
determined by iteration to be 7.31. Inlet total pressure is: 

P^o' = (PR)(P2*) 

= (7.31) (45) = 329 psia (227 N/cm^) 

For a pressure ratio of 7.31, the value for the flow parameter 
from Figure No. 68 is: 

W (T 

= 0.584 (0.286 SI units) 

^tO' 
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Figure 69. - Static Efficiency vs Velocity Ratio (Main Turbine) 






and the flow rate is: 


^ 0.584 PtQ. ^ (0.584) (329) 

(Ttoi)^^^ (1200)^^^ 

The isentropic enthalpy change is : 


5.54 Ib/sec (2.51 kg/s) 


A% = Cp Tt0» [1 - (1/PR)^ 

where : 

Y = 1.395 

Cp = 3.482 Btu/lb-°R (14,569 J/kg-°K) 

0 395/1 395 

AHi = (3.482) (1200) [1 - (1/7.31) 

AHi = 1799.7 Btu/lb (861,603 J/kg) 

The spouting velocity is: 

Co = (2 g J AHi)^/^ 

Co = 1(2) (32.174) (778.2) (1799.7)]^^^ 

Co = 9493 ft/sec (2892 m/s) 

The mean blade speed is: 

^m ^ ^ (tt) (10.92) (22,000) 

m 60 (12) (60) 

Ujjj = 1048 ft/sec (319.4 m/s) 

and the velocity ratio is: 


^ ^ 1048 

Co 9493 


0.110 


From Figure No. 69, for Ujjj/Co = 0.11, the main turbine static efficiency is: 


ns = 0.327 
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The actual total enthalpy drop is given by 
AH 

(550) (4610) 


550 shp 
^ J 


(5.54) (778.2) 

and the total temperature at the main turbine exit is 

AH 


= 588.1 Btu/lb (1,367,006 J/kg) 


-t2' 


Tt2' 


^to' “ c 


1200 - 


P 

588.1 

3.482 


= 1031°R (572. 8°K) 


The gas temperature at the main turbine exit actually is 
diluted by the bearing coolant flow. The properties of this flow are estimated 
to be as follows: 


W 


= 0.62 Ib/sec (0,28 kg/s) 


Ttc = 76°R (42.2°K) 


'pc 


= 3.491 Btu/lb-°R (14,606 J/kg-°K) 


Assuming perfect mixing, the inducer inlet total temperature is: 


“■mix 


where , 


pc 

C 

P 

w 


then 


C W T. „i+ Wc T. 
p t2 pc ^ tc 

P ■ 

= 3.482 Btu/lb-°R (14,569 J/kg-°K) 

= 3.491 Btu/lb-°R (14,605 J/kg-°K) 

= 3.483 Btu/lb- “R (14,573 J/kg-°K) 

= 5.54 Ib/sec (2.513 kg/s) 

(3.482) (5.54) (1031) + (3.491) (0.62) (76) 


mix 


3.483(5.54 + 0.62) 


T ^ = 935°R (519. 4°K) 

mix 

Next, the velocity diagram at the turbine exit is constructed 
by interation to satisfy the continuity equation. The axial velocity component 
is found to be: 

Vx2» = 2535 ft/see (772.7 m/s) 
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and the whirl component is: 


where 


Vu2' 


Cot 32» 


U 


m 


021 = rotor blade angle = 64° (1.117 rad) 

^u2» = Q ' Wfl ~ " 4149 ft/sec (1264.6 m/s) 


The absolute velocity is: 

= [(2535)2 + (4149)2]^^^ 

V 2 t = 4862 ft/sec (1482 m/s) 

Using these velocity components, the complete velocity diagram is constructed 
as shown on Figure No. 70. 


The static temperature at the main turbine exit is: 


Now: 


V2- 


^2’ - Tinix - 2 g J Cp 


^ 2 ' 

'^mix 

lil 

I‘t2’ 


= 935 - 

799.5 

935 

= 0.5785 


(4862)' 


2(32.174) (778.2) (3.483) 


= 0.855 


= 799. 5°R (444. 5°K) 


and the total pressure at the main turbine is; 

Pt2* ~ b ~ By85 ~ psia (53.78 N/cm^) 


2. Inducer Turbine Design Point 

The gas conditions at the exit of the main turbine will be 
the inlet conditions for the low-speed inducer turbine. These conditions can 
be summarized as follows: 

Tt2» = 935°R (519. 4°K) 

^t2' ~ psia (53.78 N/cm^) 
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Figure 70. Main Turbine Exit Velocity Diagram 


W = 6.16 Ib/sec (2.79 kg/s) 

V 2 t = 4862 ft/sec (1482 m/s) 

021 = 58.6° (1.0226 rad) 

At the design point, the inducer turbine is required to 
operate at 11,600 rpm (1214.7 rad/s) and produce 348 shp (260 kw) . Subsequent 
inducer analysis led to the revision of these requirements; however, the 
original conservative turbine conditions were left unchanged. 

3* Inducer Turbine Fluid Dynamic Design 
a. Turbine Power 


power requirement 


Turbine total enthalpy drop can be calculated from the 


AH 


550 shp 

W~J 


(550) (348) 
(6.16) (778.2) 


39.93 Btu/lb (92,815 J/kg) 


and the change in the tangential component of velocity is given by 


AV^ 


AV, 


u 


AH J g 


U. 


m 


(39.93) (778.2) (32.174) 
528 


1893.5 ft/sec 
(577.14 m/s) 


b. Turbine Stator 


Assuming the stator exit angle to be aj^= 18 degrees and 
the velocity coefficient = 0.9, the velocity leaving the stator is 


V 


1 


Kn Vq 


0.9(4862) 


4375.8 ft/sec (1333.7 m/s) 


A low value of velocity coefficient was selected to account for flow losses in 
the impulse low aspect ratio blading. The selection of will be verified 
subsequently through blade loss analysis. 

The axial and tangential velocity components at the inlet 

to the rotor are; 

V = cos = 4375.8 (0.95106) = 4161.6 ft/sec 

^ (1268.5 m/s) 
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sin 


4375.8 (0.30902) 


1352.2 ft/sec 
(412.15 m/s) 


and the relative velocity is 




2 . 1/2 


Wi = [(4161.6)"^ + (1352.2 - 528)^] 


2.1/2 


4242.4 ft/sec 
(1293.1 m/s) 


Now, the gas angle at the rotor inlet can be calculated 


Cos 3]^ = 


xl ^ 4161.6 

W, 4242.4 


= 0.9810 


3. = 11°12' 


The static temperature at the stator exit is 


T, = T^- - -r 1-7T- = 935 - no = 825°R (458. 3°K) 

1 tl 2 g J Cp 

Assuming no static pressure change in the impulse type stator, the density 
at its exit is 

^1 (144) (45) „ ,, 

1 ETi (766.4) (825) (0.1642 kg/m3) 


The static-to-total temperature ratio is 


= 0.8824 


and the corresponding pressure ratio is 


= 0.644 


then, the total pressure at the stator exit becomes 


\i = o:^ = 
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The stator throat area required is 

144 W 


A = " _ (144) (6.16) 

1 Pi Vi (0.01025) (4375.8) 

A, = 19.8 in. 2 (0.01277 m^) 


radius is found to be 


If 59 blades are used, then the throat width at the mean 


d^ = 0.472 in. (0.01199 m) 


and the blade height is 


, where n. = no. of blades 

d, n .. i 


*1 “1 
19.8 


= 0.711 in. (1.806 cm) 


in the wheel, 


“1 (0.472) (59) 

c. Turbine Rotor 

Assuming that the relative velocity does not change. 


W2 = = 4242.4 ft /sec 

the exit whirl velocity required is 


V„, = AV - V , 

u2 u ul 


= 1893.5 - 1352.2 = 541.3 ft/sec (165 m/s) 

Now, the relative gas angle at exit is 


sin 6 


U + V _ 
m u2 


528 + 541.3 


2 W2 4242.4 


= 0.2505 


62 = 14°30’ 

The axial velocity component is 

V^2 = ^2 cos &2 = (4242.4) (0.9682) 

V^2 4107.5 ft/sec (1252 m/s) 
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and the absolute velocity at exit is 

. 2 2 sl/2 

= [(4107.5)^ + (541.3)^]^^^ = 4143 ft/sec 

(1262.8 m/s) 

The complete velocity diagram at mean radius is shown 
on Figure No. 71. It becomes immediately evident from Figure No. 71 that a very 
low blading efficiency can be expected because the gas angles are not nearly 
optimum. 


The total temperature at the rotor exit is 

T - T - 
^t2 - ^tl c 


= 935 - 


P 

39.93 

3.483 


= 923. 5°R (513. 1°K) 


and the static temperature is 


^2 " ^t2 ■ 2 g J Cl 


4143 

Tz = 923.5 - 2(32.174) (778.2) (3.483) " (458. 3“K) 


and the temperature ratio is 

T, 


_ 825 

T , “ 928.2 

tlr 


= 0.8888 


From this temperature ratio, the total relative pressure at the rotor inlet 
can be calculated. 

p 

1 45 o 

- 0.6625; = 67.9 psia (46.82 N/cm^) 

tlr 


Assuming adiabatic flow through the rotor, 
Tt2r = = 928. 2°R (515.67°K) 
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PARAMETER 
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Figure 71. - Inducer Turbine Velocity Diagram at Mean Radius. 



and because W 2 = it follows that the static temperatures at inlet and exit 
are equal 


T 2 = Ti = 825°R (458. a^K) 


rotor blade is 


Assuming now that the velocity coefficient for this 



Kr = 

0.95 



the 

ideal velocity at the exit is 




W2i = 

^2 

^0^95^ = 4465.7 ft/sec 

(1361.1 m/s) 

and 

the isentropic temperature ratio 

m «. T* _ 

at exit is 
2i 



^2i 

tlr 

2 g J Cp 



fr — 

928.2 - 

(4465.7)^ 

• = 813. 9°R (452. 2°K) 


^2i 

2(32.174) (778.2) (3.483) 


'^2i 

813.9 

= 0.8769 



\lr 

928.2 


From this temperature ratio, 

the static pressure at the exit 

can be calculated 


"2 

^tlr 

= 0.6315 



"2 ^ 

= 0.6315(67.9) = 42.9 psia (29.58 N/cm^) 

Now, 

, the static density at the rotor 

exit is 



P2 = 

144 P 2 
RT 2 




= 

(144) (42.9) . nm” n 

(766.4) (825) ~ 

(0.1565 kg/m^) 

and 

the rotor throat area is 





A — 

W 

(144) (6.16) 

21.4 in. 2 (0.01381 m^) 


^2 

p2 W 2 

(0.00977) (4242.4) 
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Assuming 66 blades, the throat width at the mean 
diameter is estimated from the blade layout to be 


= 0.415 in. (1.054 cm) 


and the blade height is 


21.4 


^2 ^2 


0.415(66) 


= 0.781 in. (1.984 cm) 


d. Stage Performance at the Design Point 

The flow parameter of the inducer turbine with reference 


to inlet conditions is 


W 


to 6.16 


to 


78 


= 2.415 


The total-to-static pressure ratio is 

P. 


PRs = 


to 


78 

42.9 


= 1.818 


The isentropic enthalpy drop is 


AH. 

1 


Y-1 

Cp T^q [1 -(1/PRs) ^ ] 


0.396 


The spouting velocity is 


Now, the velocity ratio is 

U 


m 


(3.483) (935) [1 - (1/1. 818)^'^^^] = 508.4 Btu/lb 

(1,181,748 J/kg) 


= (2 g J AH^) 


1/2 


= [2(32.174) (778.2) (508.4)] 


1/2 


5045.6 ft/sec 
(1537.9 m/s) 


528 

5045.6 


= 0.1046 
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The static efficiency is 


7.85% 


AH ^ 39.93 

" AH^ 508.4 

4. Turbine Blade Profile 

a. Stator Blade Profile 

Stator inlet angle is determined from the exit velocity 
diagram of the main turbine 

Uq = 58.6° 

The stator exit gas angle is 18 degrees. The deviation of 6 degrees was 
selected upon the basis of Reference 13, which results in a blade exit angle 
of 24 degrees. It is essentially a turning vane having a camber angle of 

6 = Uq + + 6^ = 58.6 + 18 + 6 = 82.6° 

A relatively high blade solidity of 1.6 was selected to 
avoid possible blade stalling in the impulse type stator. 

The stator inlet height is matched to the main turbine 
second-stage rotor configuration as shown on Figure No. 72. The flow channel 
was carefully laid out to provide a smooth area transition from the inlet to 
the exit. Figure No. 73 is a sketch of the stator profile while the side view 
of the flow passage is shown on Figure No. 72. 

b. Rotor Blade Profile 

From the velocity diagram, Figure No. 71, the gas 

turning angle is 

0 = + ^2 = 


To satisfy rotor throat size requirements for constant height, unflared blades, 
it was necessary to provide a relatively thick trailing edge (r^ = 0.03-in., 
0.0762 cm). For this thick trailing edge, the deviation angle was estimated 
as follows: 


Cos 82b 
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Figure 72. - Turbine Annulus Flow Passage. 
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Figure 73. - Stator 


2 


0 



Blade Profile. 
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where 


Cos g 


“2 

s 

^2b 

2b 

^2b 


and the deviation angle is 


rotor blade opening = 0.415 in. (1.054 cm) 

pitch at mean radius = 0.497 in. (1.262 cm) 


blade exit angle 
0.415 


0.497 - 0.06 
18° 


- 0.951 


= 18° - 14.50° = 3.5' 


In addition to the deviation correlation, an induced angle of 4 degrees was 
used to correct for streamline curvature at the inlet. 

The blade camber angle is 

6 = + $2 + ^01 + ^2 

0 = 11.2° + 14.5° + 3.5° + 4.0° = 33.2° 

For this very low camber angle and low resultant blade loading, the blade 
solidity of 1.0 was selected, based upon References 14 and 15. 

The rotor blade profile and the associated flow passage 
in the tangential plane are shown on Figure No. 74. The unconventional nature 
of this design is a result of a high inlet Mach number and the low Inducer 
horsepower. 

c. Exhaust Collector Vane 

The exhaust collector used on the technology turbopump 
was modified to accommodate the inducer turbine bearing and to facilitate the 
assembly of the Inducer turbine. 

The bearing support incorporates 24 vanes designed to 
accept the turbine flow and Increase its tangential velocity component to 
provide for more efficient evacuation of the flow through the two tangential 
outlets. 

Vanes were designed for a small amount of diffusion to 
avoid flow separation. A high pressure recovery factor would have required a 
larger area ratio and a greater diffuser length. These desirable features 
could not be incorporated into the existing collector because of the cost and 
time restrictions. Figure No. 75 is a sketch of the vane profile. 
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Figure 74. - Rotor Blade Profile, 66 Blades. 



5. 


Turbine Blade Loss Analysis 


a. Soderberg's Method 

A blade loss analysis can be made after the blade profile 
configuration Is established. Here, Soderberg's method will be used to verify 
the previously estimated blading efficiency. 

Soderberg has correlated the losses upon the basis of 
solidity, Reynolds number, aspect ratio, thickness ratio, and gas deflection. 
Figure No. 76 shows the nominal loss coefficient plotted In relationship to 
gas turning angle e = aspect ratio h/b of 3:1 and a Reynolds 

number of 10^ (Ref. 16, page 86). For aspect ratios other than 3:1, Soderberg 
recommends the correction 

5" = (1 + 5') (0.975 + 0.075 b/h) - 1 

where C* = f(e) Is shown plotted on Figure No. 76. For Reynolds numbers other 
than 10^, 

5"' = (lO^/Re)^’^^ C 

where Re Is the Reynolds number based upon throat hydraulic diameter 


Thus, the total loss coefficient Is 


5"' = (10^/Re)°*^^ [(1 + ?’) (0.975 + 0.075 b/h) - 1] 

To correct for tip clearance losses, the calculated stage 
efficiency Is multiplied by the ratio of blade annulus area to total annulus 
area. Including leakage space. 

Knowing the loss coefficients for the stator and rotor, 
the total-to-statlc efficiency of the stage Is 


n 


s 



AH 


J g 


+ K 

a c 


107 





b. 


Stator Loss Coefficient 


Summary of stator blade data; 

Blade height at the throat 

Mean blade height 

Axial chord 

Throat opening 

Throat area 

Pitch at mean radius 

Thickness to chord ratio 

Gas inlet angle 

Gas exit angle 

Exit velocity 

Number of blades 
Absolute viscosity of gas 


hj^ = 0.711 in. (1.306 cm) 

F = 0.860 in. (2.184 cm) 
b = 0.900 in. (2.286 cm) 
d]^ = 0.472-ln. (1.1989 cm) 

\ = 19. 8-in. 2 (0.012774 m^) 
s = 0.5578-in. (1.4168 cm) 
t/c = 0.228 
Uq = 58.6° 

= 18° 

V, = 4375.8 ft/sec 
(1333.7 m/s) 

n = 59 

y = 0.862 X 10 ^ Ib/ft-sec 
(1.2828 X 10-5 Ns/m2) 


From Figure No. 76 for e = 76.6°, C = 0.074. 

The hydraulic diameter is 

^ "^1 ^1 ^ (2) (0.472) (0.711) 

^h d^ + (12)0.472 + 0.711 

J}^ = 0.04728 ft (1.441 x 10“^ m) 

and the Reynolds number based upon stator throat conditions is 


Re 


°h ^ Pi 


(0.04728) (43 75. 8) (0.01025) 
(0.862) ( 10“^) 


Re = 245,981 
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[(1 + 0.074) (0.975 + 0.075 - 1] 


25 

= 0.105 

c. Rotor Loss Coefficient 
Blade height 
Axial chord 
Throat opening 
Throat area 

Pitch at mean radius 
Thickness to chord ratio 
Gas inlet angle 
Gas exit angle 
Exit velocity 
Number of blades 
Absolute viscosity of gas 



II 2 = 0.781-in. (1.984 cm) 

b = 0.499-in. (1.267 cm) 
d^ = 0.4148-in. (1.054 cm) 

A 2 = 21.4 -In. ^ 

(1.381 X 10~2 m2) 

s = 0.4969 in. (1.262 cm) 

t/c = 0.16 

= 11. 2 -degrees 

B 2 = 14.5 -degrees 

V 2 = 4143 ft/sec (1263 m/s) 

n = 66 

M = 0.862 X 10 ^ Ib/ft-sec 
(1.2828 X 10~^ Ns/m^) 


From Figure No. 76 for e = 25 . 7 -degrees , C' = 0.054 
The hydraulic diameter is 


2 d2 h^ 


(2) (0.4148) (0.781) 
(12) (0.4148 + 0.781) 


0.0452 ft 
(1.376 m) 


and the Reynolds number based upon rotor throat conditions is 


Re 


Re 





II I 

R 


°h ^2 ^2 ^ (0.0452) (4143) (0.00977) 

^2 (0.862) (10“^) 

212,247 

[(1 + 0.054) (0.975 + 0.075 " H 

U • /oX 

0.065 


I 10^ 

1 212,247 
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d. Stage Efficiency 


The stage efficiency can now be calculated 


T = T 
2 3 


Tip clearance is 0.045-in. and 


25.897 

27.490 


= 0.941 


Tig = 0.941 


1 ^ 1 


' (Q.065)(4242.4)^. (0.105) (4375.8)^ (4143)^' 

/(39.93) (778.2) (32.174) 

2 2 2 


rig = 8.4% 


This prediction agrees quite well with the previously 
estimated efficiency of 7.85%. However, Soderberg's method neglects the effect 
of trailing edge thickness and it implies that the degree of reaction is 
unimportant as long as the optimum blade solidity is used. In view of these 
considerations, it might be expected that the actual efficiency will be somewhat 
lower than predicted. 

B. TURBINE OFF-DESIGN PERFORMANCE PREDICTION 

Inducer turbine off-design performance curves are required so that 
the equilibrium running line for the inducer spool can be determined and 
related to the main spool operating characteristics. The equilibrium running 
line is determined by a computer program for predicting the characte rist ics of 
the twin-spool turbopump. This program requires flow parameter (W /t^.q) /P|.q 
versus pressure ratio (PR) and efficiency (pg) versus velocity ratio (Ujjj/Cq) 
curves . 


For single-stage, axial-flow turbines, rotational speed is not 
expected to have an appreciable affect upon the pressure ratio-mass flow 
relationship. For this reason, in Figure No. 77, the flow parameter-pressure 
ratio relationship is represented by a single curve, which is referred to the 
total conditions at the turbine inlet. At the design point, the flow parameter 
takes the value 


and 


^ 6 16 /935 

= 2.415 (1.184 SI units) 

Pto /» 

the static pressure ratio at this point is 


PR = 


to 


78 

42.9 


= 1.818 


where is the static pressure at the rotor exit. 
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Figure 77. Flow Parameter vs Pressure Ratio (Inducer Turbine) 





For the turbine stator at choking conditions, the flow parameter 


will become 


I K '^to 




to 


'choking 


Y+1 


(- 2-1 

1 h" 


2(y-1) P 


tl 


to 


where Is the total pressure at the stator throat and Is the throat area 

= 19.8 In.^ (0.01277 m^) 


tl 

'to 


69.9 

78 


= 0.8962 


for hydrogen gas 



Y+1 

2 \2(y-1) 

rtT 


2.396 


' (1.396)(32.174) 

1/2 

2 

2(0.396) 

766.4 


2.396 



0.1402 (0.07789 /^/s) 


W 

to 


to 


choking 


(0.1402) (0.8962) (19.8) 


2.488 (1.220 SI units) 


Figure No. 78 Is a familiar plot of static efficiency In terms of 
velocity ratio U^/Cq. At the design point, this efficiency Is estimated to be 
approximately 7.85% for a velocity ratio of 0.1046. 


C. TURBINE TEST DATA ANALYSIS 

The twin-spool turbopump was tested over a wide pump operating 
range to determine the effect of the Inducer upon the pump performance. Room 
temperature hydrogen was used as a turbine drive gas although the Inducer 
turbine blading was sized for hot hydrogen operation. 

Turbine Instrumentation, which Is described separately In this 
report, allowed the determination of over-all turbine performance only. No 
pressure or temperature surveys along the turbine annulus height were made. 
Main turbine efficiency was calculated using pump horsepower which. In turn. 
Is determined from the pump head and temperature rise. Similarly, Inducer 
turbine efficiency relies upon the Inducer horsepower. As a result, any 
Inaccuracy In the horsepower calculation Is carried over to the turbine 
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Figure 78. Static Efficiency (Inducer Turbine) 



efficiency computation. In particular, the error in the inducer horsepower 
can be considerable because the temperature rise across the inducer is of the 
same order of magnitude as the tolerance of the temperature reading. 

For the main turbine, the test data covered the range of static 
pressure ratios from 3.5 to 6 and velocity ratios from 0.10 to 0.19. The data 
points are shown plotted on Figures No. 68 and No. 69. Generally good agree- 
ment is evident between the new test data and the predicted curves. The 
turbine flow parameter, W /Tj.q»/P^.qi, was somewhat higher than expected for a 
room temperature hydrogen gas drive. 

The inducer turbine test data ranges over the static pressure 
ratio of 1.67 to 1.87 at a practically constant velocity ratio. In Figure 
No. 77, the test points fell slightly below the predicted flow parameter curve. 
It appears that this was caused by the gas leakage which bypassed the turbine 
stator. This leakage occurred through the stator labyrinth and the Inducer 
shaft labyrinth. 


Turbine static efficiency test data are shown on Figure No. 78. 

The experimental points agree very well with the design Ujjj/Cq but the static 
efficiency is lower than predicted by approximately 1.1 points. Efficiency 
prediction for a low power turbine such as this is very difficult because 
the conditions at the turbine inlet are not known to a desirable degree of 
accuracy. Secondly, it is difficult to account for the effect of gas leakage. 
Also, the accuracy of the pressure and temperature measurements is difficult 
to achieve under actual test conditions. As mentioned, the inducer horsepower 
used in the turbine efficiency calculation is subject to inaccuracy because of 
the small temperature rise in the inducer. In view of these considerations, 
the turbine efficiency determined from the experimental data is restricted to 
an indication of the performance level. 

Various size orifices were installed downstream of the exhaust 
collector to determine the effect of backpressure upon the speed and power 
split between the main turbine and inducer turbine. Tests No. 5 and No. 6 
were conducted using orifices that reduced the effective exhaust duct area by 
10% and 20% of the nominal value, respectively. At the nominal operating 
point, the observed results were approximately as follows: 


Exit Area 
Reduction 


10 % 

20 % 


D. CONCLUSIONS 


Speed 

Reduction 


2 % 

4% 


shp 

Reduction 


6.7% 

14.5% 


1. The single-stage axial-flow turbine designed to drive the 
inducer for the twin-spool turbopump feasibility demonstration proved to be 
a successful concept. 
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2. Data obtained from the twin-spool turbopump tests indicated 
that the average turbine efficiency was approximately 6.75%. This shows 
good agreement with the predicted value of 7.85%. 

3. The turbines used in this unit do not require any special 
controls for safe operation. 

4. The low power and speed requirements of the inducer spool 
as well as the high Mach number at the turbine inlet resulted in an 
unconventional blading and a low static efficiency. 
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V. 


MECHANICAL DESIGN 


A. DESCRIPTION 

/ The turbopump configuration used for the Twin-Spool Turhopump 

feasibility demonstration is a coaxial design which incorporates a low- 
^speed inducer driven by a single-stage impulse turbine. An existing posi- 
tive NPSP turbopump was modified by incorporating newly-fabricated components 
to provide for the coaxial configuration shown on Figure No. 79. The assembled 
Twin-Spool Turbopump mounted into the build-up stand is shown on Figures No. 

80, No. 81, and No. 82. 

The main turbopump consists of a single-stage centrifugal pump with 
an integral inducer driven by a two-stage impulse turbine. The turbine is 
coupled to the pump through a liquid-hydrogen-cooled bearing housing by a 
hollow shaft. 

The low-speed inducer is driven through a single-stage impulse 
turbine by a solid shaft, which passes through the hollow shaft of the main- 
stage rotating assembly. Both the inducer and the inducer turbine are 
supported by liquid-hydrogen-cooled bearings. 

Labyrinth seals were placed at the turbine and pump ends of the 
main shaft to prevent turbine drive gas from entering the main pump inlet. The 
labyrinths are designed to provide for pressurization of the cavity between the 
high and low-speed shafts , with a portion of the main-stage bearing coolant 
flow. 


Table III presents geometric data pertinent to the Twin-Spool 

Turbopump. 


B. DESIGN CONDITIONS 

Component mechanical design was accomplished using predicted turbo- 
pump conditions at the nominal design point. Mechanical design conditions are 
shown on Table IV. The mechanical design analysis was conducted assuming an 
overspeed condition (or mechanical design speed) of 115% of the nominal design 
point speed. 


C. STRUCTURAL CRITERIA 

Structural design criteria were established at the beginning of 
component design. The resulting design factors are compatible with values used 
for design of the main-stage turbopump. 

For mechanical design purposes, the following definitions and 
criteria were applied to the inducer stage components: 
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Figure 79. - Twin-Spool Turbopump. 












Figure 81. - View of Turbopimip Assembly in Build-Up Stand 
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Figure 82. - View of Turbopump Assembly in Build-Up Stand. 


TABLE III 


TWIN-SPOOL TURBOPUMP GEOMETRIC DESCRIPTION 


Length 

Diameter (pump discharge) 
Weight 

Inlet/Exhaust Diameters 


48. 8-in. 
24.0-in. 
585 lb 


Rotating Weights and Inertias 
Main Spool 


124 cm 
61 cm 
266 Kg 


a. 

Pump Inlet 

10 . O-in . 

25.4 

cm 

b. 

Pump Discharge 

4.8-in. 

12.2 

cm 

c. 

Turbine Inlet 

4.6-ln. 

11.7 

cm 

d. 

Turbine Exhaust (Dual) 

5 . 8-in . 

14.7 

cm 


a. Weight 

47.3 lb 

21.5 Kg 

b . Inertia 

1.1778 lb-in. -sec^ 

1.3568 Kg-cm-sec 

Inducer Spool 



a. Weight 

48.9 lb 

22.2 Kg 

b . Inertia 

0.8125 lb-in. -sec^ 

0.936 Kg-cm-sec^ 
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TWIN-SPOOL TURBOPUMP MECHANICAL DESIGN PARAMETERS 
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Nominal Speed , Njjj), is the aerodynamic/hydraulic design speed. 


tfechanlcal Design Speed , Njq), Is taken as 1.15 times nominal speed. 
The turbopump is to withstand a minimum of five excursions of 30 sec each, at 
this speed, without detrimental yielding, burst or rupture, severe rubs, or 
blade failures. 

Burst Speed is established as a minimum of 1.2 times the mechanical 
design speed. 

Yield Factor of Safety on Pressure or Inertia Load is limited to a 
minimum value of 1.18. 


Ultimate Factor of Safety on Pressure or Inertia Load is limited 
to a minimum value of 1.25. 


Cyclic or Vibration Loads are based upon a modified Goodman diagram 
with a 1.25 factor of safety Imposed. 


Critical Speeds are to be removed from the expected operation 

spectrum. 


Both the yield and ultimate factors of safety are applicable at 
the nominal and mechanical design speeds. 


For purposes of mechanical design, the power requirement of both 
the main and inducer stages was assumed to vary as the cube of the speed ratio. 




3 


Values of speed and power for both the main and inducer stages at 
the nominal design point and the mechanical design point are shown on Table V. 


D. COMPONENT DESIGN 

The Twin-Spool Turbopump was designed utilizing an existing single- 
spool NERVA Mark III Mod 4 Technology Turbopump (P/N 1115700-9) as the main 
stage. This single-spool design required modifications to satisfy the coaxial 
Twin-Spool configuration shown on Figure No. 79. The single-spool NERVA Mark 
III Mod 4 Technology Turbopump design information is contained in Reference 17. 


1. Modified Main-Stage Turbopump Components 
a. Pump Housing 

The standard configuration pump housing was replaced with 
a housing having a diffuser vane inlet angle of 8.0-degrees (0.1396 rad) and 
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a dif fuser iulet width of 0.40-in. (1.016 cm). The diffuser inlet angle and 
diffuser width are 9. 25-degrees (0.16145 rad) and 0.55-ln. (1.40 cm), respect- 
fully, for the standard configuration pump housing. 

b . Impeller 

Modification to the main turbopump included reducing the 
iittpeller discharge diameter from 12.25-in. (31.1 cm) to 10.4-in. (26.4 cm). 

An additional modification to the basic main-stage 
impeller design was to enlarge the bore diameter to allow for the coaxial low- 
speed inducer shaft. The impeller hub tangential stress was calculated at the 
bore and found to be 23,000 psi (15,850 N/cm2) . This results in a positive 
margin of safety of 2.0 for the aluminum impeller (7075-T73) at the mechanical 
design speed (see Figure Mo. 83). 

c. Turbine Rotors 

The solid turbine rotors were modified to a configuration 
having a 1.2-in. (3.05 cm) diameter hole at the center to accommodate the 
inducer stage shaft. The calculated burst speed was placed at a minimum value 
of 35,600 5Tpm (3720 rad/s) for the rotor assembly. 

The natural frequency of the first-stage rotor was 
determined by analysis and test. The resonant speed was determined to be 
25,900 rpm (2710 rad/s) for the second nodal diameter mode. 

d. Main-Stage Shaft/Coupler 

The main-stage shaft design was altered to make provisions 
for the coaxial low-speed inducer shaft. The impeller is driven by a redesigned 
coupler which is attached to the shaft. The shaft-to-coupler driving torque 
is transferred through a spline on the coupler inside diameter. Stress analysis 
of the external shaft spline reveals a minimum positive margin of safety of 
0.47 at the nominal design speed conditions, considering one-fourth of the 
spline teeth in contact (see Figure Mo. 84). 

e. Exhaust Manifold 

The exhaust manifold, as used on the positive NPSP turbo- 
pumps, was modified to an annular design for use on the Twin-Spool Turbopump. 
Modification was necessary to provide a turbine-end bearing support for the 
low-speed shaft. The change consisted of welding a cylindrical inner shell 
to the flat end of the housing to provide access to the turbine-end bearing 
support housing of the low-speed shaft (see Figure No. 85). 
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Figure 83. - Pump Housing and Main Impeller. 
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Figure 84. Shaft/Coupler - Bearing Hmisine Assembly 
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Figure 85. - Exhaust Collector/Exhaust Stator. 




2 . 


New Components for Zero NPSP Twin-Spool Turbopump 


a. Inducer 

The inducer is an eight bladed (at the discharge), 10-in. 
(25.40 cm) tip diameter configuration fabricated from a titanium alloy (AllO-AT) 
forging. 

2 Maximum tangential stress in the inducer hub is 22,600 psi 

(15,570 N/cm ), resulting in a margin of safety of +5.0 at the mechanical design 
speed. Blade root stress levels are higher with a margin of safety of +0.10 at 
the mechanical design speed. 

Inducer vane first natural frequency is calculated to be 
in the range of 2215 cps to 3215 cps (2215 Hz to 3215 Hz) . The lowest value 
of 2215 cps (2215 Hz) corresponds to a shaft speed of 16,500 rpm (1728 rad/s), 
which is well above the inducer stage mechanical design speed. No major forcing 
frequencies lie in the first critical speed range. 

The inducer along with the main stage impeller is shown 

on Figure No. 86. 


b. Inducer Housing 

The housing is a weldment design fabricated from GRES 347 
and incorporates an eleven vane stator set between the inducer exit and the 
main pump inlet. The stator vanes serve a dual purpose; they assure axial 
fluid flow to the main pump stage and provide support for the low-speed shaft 
system bearing housing (see Figure No. 87). 

c. Inducer Turbine 

The inducer turbine rotor disc is the same contour as 
the second-stage rotor of the main-stage turbine. A rotor disc stress analysis 
was not made because it has the same configuration as the main-stage second 
rotor and the blade inertia loading is much less. Also, the operational speed 
is approximately half that of the main-stage second stage. 

To expedite fabrication and reduce cost, the inducer 
turbine rotor was fabricated from a weldment consisting of a short piece of 
bar stock electron-beam welded to a standard turbine rotor forging. The hub 
is required for support of the turbine-end inducer shaft radial load bearing. 

Both the rotor forging and bar stock are A286 material. 

Analysis of the inducer turbine rotor blades indicates a 
total stress level of 13,760 psi (9480 N/cm^) at the mechanical design conditions 
of 13,340 rpm (1398 rad/s) and 529 hp (394 kw) . Blade resonant frequencies 
were calculated and correspond to the following shaft speeds within the 
operating range: 
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Figure 86. - Inducer and Main-Stage Impeller. 
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Figure 87. - Inducer Housing. 





Shaft Speed 


rpm 

rad/sec 

Mode of Vibration 

4000 

419 

First bending - minor axis 

5000 

524 

Torsional 

7500 

785 

First bending - major axis 

8600 

900 

Second bending - minor axis 


Prolonged turbopump operation at inducer shaft speeds corresponding to the 
resonant speeds of the two modes about the minor axis were avoided to reduce 
the probability of developing fatigue cracks in the relatively flat blades. 

Figure No. 88 shows the inducer turbine rotor and the 
inducer turbine stator. 

d. Inducer Shaft 

The Inducer is connected to the inducer turbine by a 
0.980-in. (2.49 cm) diameter solid shaft extending through the hollow shaft 
system of the main-stage rotating assembly. The shaft is fabricated from 
Inconel X-750 bar stock. 

Torque to the inducer and from the inducer turbine rotor 
is transferred to the shaft by a spline drive at each end. Spline stress 
levels are low because of the relatively low power required to drive the inducer. 
The margin of safety for the inducer rotor spline is +1.12. 

The inducer shaft and other major inducer stage rotating 
components are shown on Figure No. 89. 

e. Inducer Shaft Bearings 

The low-speed shaft system is supported on the same 
configuration and size (50 mm) bearings as is the main shaft . A radial load 
bearing (roller) is located at each end of the shaft. Axial thrust is accommo- 
dated through two ball bearings located within the low-speed inducer bearing 
housing. 


Bearing coolant is supplied to the low-speed bearings by 
means of four, 0.25-in. (0.635 cm) diameter lines extending from the high 
pressure pump housing volute to a manifold on the inducer housing. The coolant 
enters the bearing housing through holes in the inducer housing stator vanes 
and passes through the bearing retaining labyrinth. A five-micron filter was 
placed in each of the four lines to prevent contaminants from entering the 
bearing cavity. 
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Figure 88. - Inducer Turbine Rotor/Stator 
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Figure 89. - Inducer/Shaft/Inducer Rotor. 




The two bearing retaining labyrinths in the inducer 
bearing housing were designed so that the bulk of the coolant flows through 
the three bearings. 

The single, radial load bearing on the inducer turbine 
rotor hub of the low-speed shaft is supplied coolant through a filtered single, 
0.250-in. (0.635 cm) diameter tube extending from the pump housing volute to the 
access plate covering the end of the low-speed shaft. 

Figure No. 90 is a plot of predicted bearing coolant flow 
for both the Inducer and turbine end bearings and as a function of the pressure 
differential across the orifices in the coolant lines. These curves are based 
upon data obtained from water flow tests. 

f. Inducer Turbine Stator 

The 59-vane Inducer turbine stator is fabricated from 
GRES 347. The vanes are integrally machined from a forging ring with the 
outer shroud being brazed to the vanes to provide support. Pins provide a 
mechanical lock between the blade row and the outer shroud (see Figure No. 91). 

g. Exhaust Stator 

The exhaust stator is a dual-purpose component in the 
Twin-Spool Turbopump. The stator vane profile provides for gas turning prior 
to exiting in the exhaust manifold. The exhaust stator assembly also supports 
the turbine-end low speed shaft radial load bearing. 

Fabrication is similar to that of the inducer stator. 

The vanes are integrally machined and brazed to the outer shroud. Pins at 
every other vane provide a mechanical lock. The entire assembly is made from 
GRES 347 material (see Figures No. 85 and No. 92). 

h. Speed Measurement System 

Dual proximity probes are used for sensing the inducer 
shaft speed. These probes are identical to those used for the main-stage. A 
speed pick-up gear is located aft of the inducer turbine rotor. The difference 
between the main-stage system and the inducer stage speed pick-up system is that 
there are less gear teeth in the inducer system because of the smaller gear 
diameter. 

i. Shaft Seals 

The flow between the high-speed and low-speed shafts is 
controlled with labyrinths at the end of the main-stage impeller and at the 
downstream face of the second rotor. This is done to prevent the turbine drive 
gas from mixing with the liquid hydrogen in the main pump inlet causing a 
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Figure 90. - Predicted Inducer Stage Bearing Coolant Flow Rates 
Upon Orifice Calibrations in Water. 
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Figure 91. - Inducer Stator. 


I 
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Figure 92. - Exhaust Stator 


degradation in pump performance. The cavity is designed to be pressurized 
with a portion of the bearing coolant from the main-stage bearing housing. 
Coolant enters this area through six, 0.087-in. (0.221 cm) diameter holes 
located in the clutch portion of the main-stage shaft. The two labyrinth seals 
are replaceable rings made from soft aluminum alloy. A soft alloy was selected 
to allow for rub (or wiping) between the two shafts at these close-fitting 
points. Clearances and flow areas are presented in Table VI for all labyrinth 
seals in the turbopump. 

j . Inducer Shaft Critical Speed 


to be: 


The low-speed shaft resonant frequencies were calculated 



Shaft 

Speed 

Mode 

rpm 

rad/ s 

First 

1096 

115 

Second 

6680 

700 

Third 

12040 

1261 


These values of shaft critical speed are based upon 
measuring the spring constant of each bearing mount with the turbopump mounted 
in Test Stand H-6. A series of static loads were applied at each bearing 
location and the deflections noted. The resulting spring rates (load per unit 
deflection) for each bearing support are: 

Inducer end K = 31090 Ib/in. (544 N/m) 

Inducer turbine end K = 64670 Ib/in. (1131 N/m) 

The first critical speed value of 1096 rpm (115 rad/s) 
is encountered during start-up and shutdown only. Therefore, it was 
considered to be of major importance. Even though the second critical speed 
was found to be within the operational range of the low-speed shaft, no bearing 
problems were foreseen because it was anticipated that the bearing loads would 
be moderate . 


The inducer stage components materials were selected 
based upon strength and thermal environment requirements. The major components 
and their materials are as shown in Table VII. 
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LABYRINTH GAP CLEARANCES AND FLOW AREAS 
TEMPERATURE = 530°R (294K) 
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LABYRINTH 



TABLE VII 


INDUCER-STAGE COMPONENTS MATERIALS 


COMPONENT 


MATERIAL 


Inducer 

Inducer Housing 
Spinner 

Inducer Bearing Housing 

Inducer Bearing Retaining Labyrinths 

Inducer Shaft 

Inducer Turbine Rotor 

Inducer Turbine Ring Seal 

Inducer Turbine Nozzle 

Inducer Turbine Exhaust Stator 

Inducer Speed Pick-Up Sleeve 


Titanium A-110 
CRES 347 
Aluminum 6061 
CRES 347 
CRES 347 
Inconel X750 
A286 
A286 

CRES 347 
CRES 347 
AM350 
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E. TURBOPUMP WEIGHT 


The Twin-Spool Turbopump was weighed following completion of 
assembly. Its weight (not including closures) is 585 lb (266 Kg). The weight 
of the main-stage turbopump was 385 lb (175 Kg), before modification to the 
Twin-Spool configuration, indicating that the conversion added 200 lb (91 Kg) 
of weight. It should be noted that both the main-stage turbopump and the 
components associated with the zero NPSP configuration were not designed with 
minimum weight as a criterion. 

With minimum weight as a criterion for a flight engine, it is 
estimated that a redesign of the main-stage turbopump (maintaining performance 
and flow characteristics) would result in an assembly weight of approximately 
310 lb (141 Kg) . An optimized flightweight Twin-Spool (zero NPSP capability) 
turbopump would be approximately 55% heavier than the flightweight Single-Spool. 
Specifically, the Twin-Spool Turbopump would be expected to weight approximately 
480 lb (218 Kg). 

F. POST-TEST DISASSEMBLY 

The Twin-Spool Turbopuiq) was disassembled after completion of the 
test program. The condition of all components was fairly good and as antici- 
pated for the test conditions and accumulated run time. 

The total operational time (including seven start-ups and shutdowns) , 
of the Twin-Spool Turbopump exceeded 60 min (3600 sec) duration. Approximately 
45 min (2700 sec) of the total duration were accumulated at turbopump operation 
in the full-speed range. 

Evidence of rubbing between the two coaxial shafts and on the two, 
soft aluminum labyrinths that restrict flow between the shafts is attributed to 
unbalance, loss of fit, and possible shaft critical speed. An indication of 
fretting at the contact surfaces of the Inducer to bearing spacer and inducer 
turbine to low-speed shaft also was found. These conditions would be corrected 
in subsequent Twin-Spool Turbopumps by improving the fits and pilots, improving 
the balancing, and providing a mid-shaft deflection snubber. 
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VI. 


TWIN-SPOOL TUEBOPUMP TEST PROGRAM 


A. TEST PROGRAM OBJECTIVES AND ACHIEVEMENT CRITERIA 
1. Object Ives 

The six, specific major objectives of the test program were 

as follows: 

a. Development of a digital computer program to predict the 
steady-state and transient performance (cavitating as well as non-cavitating) 
of a Twin-Spool Turbopump. 

b. Determination of the Twin-Spool Turbopump operational 
characteristics and experimental verification of the computer prediction 
method. Appropriate refinement of the mathematical computerized model was to 
be made based upon the experimental results. 

c. Establishment of a basis for selecting a turbopump con- 
figuration (single-spool or twin-spool) for future application by establishing 
performance curves and suction capability. 

d. Providing comparison data for this inducer drive system 
that are usable in relationship to the full-flow and partial-flow hydraulic 
drives. 


e. Providing engine system integration design data in the 
form of transient and steady-state performance. 

f. Providing an alternative base configuration for the 
hydrogen pumping evaluation of other boost pump configurations (l.e., hubless 
converging, full-flow, and partial flow inducer concepts). 

2. Achievement Criteria 

All of the above indicated program objectives were success- 
fully achieved. This achievement was judged upon the basis of an evaluation 
and comparison of test results in context with the following criteria: 

a. Operating characteristics (head rise-capacity) at both 
design and off-design conditions with zero NPSP and positive NPSP. 

b. Transient response in terms of providing main pump NPSP 
at both chemical and nuclear engine starting rates. 

c. Operational sensitivity and stability when subjected to 
engine-induced conditions (l.e., pump flow rate and turbine pressure ratio 
variations) . 


d. Validity of steady-state and transient performance 
matching analyses and predictions. 
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e. Mechanical integrity of a prototype twin-spool system. 

f. Refined criteria for subsequent final designs. 

B. TEST FACILITIES 

Aerojet-General Sacramento Facility Test Stand H-6 was utilized to 
conduct the testing program. Originally designed for turbopump development 
testing, it offered the most economical approach for accomplishing program 
objectives. Only minor modifications to the existing special test equipment, 
turbopump assembly handling fixtures, work platforms, and the turbine exhaust 
duct were needed to accommodate the hardware configuration. 

Test Stand H-6 is part of the Test Zone H NERVA test complex shown 
on Figure No. 93. The basic stand structure houses three separate test posi- 
tions with the propellant run vessels positioned overhead. The spherical 
vessels within the superstructure are high-pressure Dewars, while the large 
cylindrical vessel located atop the superstructure is a low-pressure Dewar. 

It was used to supply the pumping fluid to the test article. 

A liquid hydrogen catch vessel and flare stack are located adja- 
cent to the test complex. 

High-pressure gaseous hydrogen and nitrogen are supplied from the 
gas cascade shown on Figure No. 94. The gaseous hydrogen is stored in six, 

1300 cu ft vessels at 3500 psig, while the gaseous nitrogen is stored in three, 
1300 cu ft vessels at 5000 psig. Additionally, there are liquid hydrogen and 
liquid nitrogen storage vessels supporting the test complex. Figure No. 95 
is a schematic of the supporting equipment and facilities for Test Stand H-6. 

Liquid hydrogen is supplied to the pimp inlet through an 8-in. 
vacuum- jacketed line from the 105,000 gal cylindrical overhead run vessel 
(VH-11) . The pump effluent is carried to the 100,000 gal liquid hydrogen 
catch vessel (VH-10) through a vacuum- jacketed line where approximately 45% 
to 50% of the liquid hydrogen is recovered. 

Gaseous hydrogen from the high-pressure cascade is used as the 
pressurant in the liquid hydrogen run vessel as well as the fluid for driving 
the turbine. This gas is filtered and its pressure regulated in accordance 
with Individual test requirements. Regulating the pressurant gas flow in the 
liquid hydrogen vessel provides control of the pump inlet conditions. Two, 
servo-controlled, hydraulically-operated flow control valves are utilized to 
maintain a steady liquid hydrogen vessel ullage pressure. One of these fast- 
response valves regulates the flow of pressurant gas, while the other regu- 
lates the vessel vent system. Another flow control valve is located in the 
pump discharge line to permit regulation of the flow rate over the operating 
range. 
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Figure 94. - High-Pressure Cascade. 




The gaseous hydrogen used as the turbine drive gas is supplied 
from the high-pressure cascade at ambient temperature. Its pressure is regu- 
lated to satisfy the requirements of the test article by means of a turbine 
drive valve located upstream from the turbine inlet (see Figure No. 95). 

The turbine exhaust line has provisions for an orifice, which is 
used to vary the turbine back-pressure, 

C. CONTROLS SYSTEM 

The control system used during the Twin-Spool Turbopump test 
series is shown on Figure No. 96. During the turbopump operation, control 
systems were used to calculate as well as to display Q/N and NPSP. They also 
provided control of the main-stage shaft speed and pump flow rate. Pump flow 
rate was based upon either volumetric flow rate or flow parameter (Q/N) to 
meet the operational requirements of the test program. 

The control system monitored both shaft speeds and provided an 
automatic shutdown if a loss of speed signal or an overspeed occurred. It 
also provided an automatic shutdown upon the loss of hydraulic pressure or 
over-pressure of the liquid hydrogen vessel, turbine inlet line, or pump 
discharge line. 

D. INSTRUMENTATION 

During the test series, 146 channels of data were acquired, includ- 
ing pressure, temperature, flow rate, NPSP, turbine parameters, high frequency 
data, vibration, and the key parameters of inducer and main pump shaft speed. 

A summary of the data measured and the recording methods is provided on 
Tables VIII and IX. 

All of the parameters needed to complete a performance evaluation 
were measured. Temperatures as well as pressure upstream and downstream from 
the inducer, the main-stage pump, the main-stage turbine, and the inducer 
turbine, as well as the speed of both spools were measured. High-frequency 
pressure meaurements were made in front of the inducer inlet, at the inducer 
exit, and stator inlet, and the stator outlet to allow evaluation of the 
inducer performance 

All the critical measurements were made redundantly to assure that 
the essential data were acquired during a test. A complete listing of the 
parameters measured as well as the recording method used for each is shown on 
Table X. The location and description of the parameters measured are shown on 
Figure No. 97. Views of the turbopump installed in the test stand are included 
as Figures No. 98 through No. 103. 

Continuous data sampling was taken during the operation of the 
turbopump. Both the strip chart and the analog-to-digital records were taken. 
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TABLE VIII 


SUMMARY OF DATA MEASURED 


DATA 

TPA 

NUMBER OF CHANNELS 

FACILITY TOTAL 

PRESSURE 

TEMPERATURE 

56 

17 

73 

RTT 

13 

2 

15 

CR/AL THERMOCOUPLE 
HIGH FREQUENCY 

19 

2 

21 

ACCELEROMETERS 

5 

0 

5 

PHOTOCON (PRESS) 

4 

0 

4 

KISTLER (PRESS) 

3 

0 

3 

E.O.S. (PRESS) 

1 

0 

1 

FLOW RATE 

3 

1 

4 

SPEED 

4 

0 

4 

VALVE TRACE 

0 

5 

5 

SWITCH TRACE 

0 

9 

9 

AXIAL THRUST 

2 

0 

2 

SIGNALS FROM CONTROL SYSTEMS 

2 

2 

4 


TOTAL DATA = 146 CHANNELS (+4 FROM CONTROLS SYSTEM) 
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TABLE IX 


SUMMARY OF RECORDING METHODS 



NUMBER OF CHANNELS 

RECORDING EQUIPMENT 

TPA FACILITY TOTAL 


ANALOG TO DIGITAL (BECKMAN) 


40 SAMPLES PER SECOND 

39 

0 

39 

20 SAMPLES PER SECOND 

30 

20 

50 

10 SAMPLES PER SECOND 

20 

10 

40 

OSCILLOGRAPH 

14 

12 

26 

STRIP CHART 

BROWN 15 3X 

12 

0 

12 

WESTRONIC D-llA/Y 

12 

0 

12 

MOSELEY 680 

14 

4 

18 

SANBORN 1584 

0 

5 

5 

GENERAL ELECTRIC 

1 

0 

1 

X-Y PLOTTER (ELECTRO INSTRUMENTS) 

2 

0 

2 

H.F. TAPE (SANGAMO 451 BR) 

13 

2 

15 

VISUAL GAUGES (METRONIX) 

1 

13 

14 


TOTAL CHANNELS RECORDED = 220 (+14 VISUAL GAUGES) 



TURBOPUMP INSTRUMENTATION 
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Pump Instrumentation (cont. 
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TABLE X (cont 
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Transmission Instrumentation (cont. 
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Acceleration 



TABLE X (cont. 
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TFCTl 0-60°R 0-33“K 20 6 in. (15.2 cm) RIT 



TABLE X (cont. 
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*The pressure values shown in this column are gauge pressure. 

**The numbers in this column are the sampling rate in samples per second used by the Analog to Digital System 

***The letters in this column represent types of recorders: B = Brown 153X; W = Westronics D-llA/Y; M = Moseley 680; S = Sanborn 1584; 
GE = General Electric 







Figure 98. - View of Twin-Spool TPA S/N 99019, Pre-Test No. 1261-DOl-OP-OOl . 
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Figure 99. - View of Twin-Spool TPA S/N 99019, Pre-Test No. 1261-DOl-OP-OOl . 




Figure 100. - View of Twin-Spool TPA S/N 99019, Pre-Test 
No. 1261-DOl-OP-OOl. 
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Figure 101. - View of Twin-Spool TPA S/N 99019, Pre-Test 
No. 1261-DOl-OP-OOl. 
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Figure 102. - View of Twin-Spool TPA S/N 99019, Pre-Test 
No. 1261-DOl-OP-OOl. 
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Figure 103. - View of Twin-Spool TPA S/N 99019, Pre-Test 
No. 1261-DOl-OP-OOl. 
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The strip charts and visual gauges were used for visual settings of the turbo- 
pump operating conditions. The analog-to-digital data obtained during each 
test was stored on magnetic tape. 

Raw data from the analog-to-digital system was reduced and con- 
verted to engineering units after each test by utilizing the turbopump data 
reduction program (Computer Job 304). These data were made available to the 
Project Engineer, who reviewed the pertinent data before each test as well as 
prior to the removal of the test unit from the test stand. 

E. TEST SUMMARIES 

The following four different kinds of tests were conducted within 
the seven test programs, wherein liquid hydrogen was pumped and gaseous hydro- 
gen was used to drive the turbine: 

- Head- capacity traverses at constant speed and NPSP 

- NPSP traverse at constant speed and flow rate 

- Head-capacity traverses at off-nominal turbine 
pressure ratios 

- Transient response evaluation 

The transient tests were designed to simulate start ramps that are 
comparable with chemical engine starts. One partial-speed checkout test was 
conducted prior to operating at the 22,000 rpm (2300 rad/s) nominal shaft 
speed. 


Table XI is a summary of the testing conducted. 

1. Test No. 1261-DO 1-OP-OOl 

This test was conducted at approximately half of the nominal speed 
for the purpose of checking out both the turbopump and the facility prior to 
full-power operation. Head rise-flow rate traverses, including main-stage 
stall, were made at both positive and zero NPSP. Matching of the actual and 
predicted operating conditions was very good. 

2. Test No. 1261-D01-OP-002 


This was an H-Q traverse test at full speed. The flow rate 
was varied from 70 Ib/sec (31.8 Kg/s) to 45 Ib/sec (20.4 Kg/s). It was not 
possible to operate at 77 Ib/sec (34.9 Kg/s) because of turbine drive system 
limitations. One H-Q traverse was made at a tank NPSP of 20 psi (14 N/cm^), 
and one was made at approximately 5 psi (3 N/cm^). Data was taken at 19,000 
rpm (1990 rad/s) at a tank NPSP of approximately 1 psi (0.7 N/cm^) because the 
available turbine drive system power restricted the speed to this value. 
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TABLE XI (cont. 
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3. 


Test No. 1261-D01-0P-003 


The 6 sec start ramp at zero NPSP was run in this test. The 
NPSP ramps at the 76 Ib/sec (34 Kg/s) and 64 Ib/sec (29 Kg/s) also were made. 

The test was terminated when the inducer speed exceeded 11,000 rpm (1152 rad/s). 
The turbopump was restarted (Test No. 126 1-DO 1-OP-003A) following the shutdown. 
A blown burst disc in the turbine supply line caused the drive gas to be 
bypassed into the turbine exhaust system, and the turbopump would not operate, 
above 12,000 rpm (1257 rad/s), 

4. Test No. 1261-D01-OP-004 

This test consisted of a 3 sec start ramp at a NPSP of 20 psi 
(14 N/cm'^). The turbopump was shutdown and restarted with a 3 sec ramp at an 
NPSP of 1 psi (0.7 N/cm^) (Test No. 1261-D01-0P-004A) . The turbopump was 
operated at zero NPSP at flow rates of 70 Ib/sec (32 Kg/s) and 54 Ib/sec 
(24 Kg/s). The NPSP ramp at 45 Ib/sec (20 Kg/s) also was made during Test No. 
1261-D01-OP-004A. 

5. Test No. 1261-D01-OP-005 


This test consisted of an H-Q traverse at zero NPSP with the 
effective area of the turbine exhaust system reduced by 10% by placing an 
orifice in the turbine exhaust line. 

6. Test No. 1261-D01-OP-006 


This test was a duplication of Test No. 1261-D01-OP-005, with 
the effective area of the exhaust system reduced by 20%. The turbopump also 
was operated at 19,000 rpm (1990 rad/s), with 39 Ib/sec (18 Kg/s) flow rate 
and 15,000 rpm (1571 rad/s) with 31 Ib/sec (14 Kg/s) flow rate. The NPSP at 
these two conditions was zero. 

7. Test No. 1261-D01-OP-007 


During this test, the turbopump was operated at a high flow 
parameter of 0.41 gal/rev (0.23 dm^/rad) at zero NPSP. The speed was limited 
to 15,000 rpm (1571 rad/s) by the turbine drive system. The location of the 
main-stage stall at 22,000 rpm (2304 rad/s) and NPSP =0.7 psi (0.5 N/cm^) 
also was established during this test. 
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VII. COMPUTER PROGRAM AND REFINEMENT 


A digital computer program was developed for the prediction of Twin-Spool 
Turbopump operating characteristics during steady-state or transient operation 
with hydrogen as the turbine drive gas and pumped fluid. Verification of the 
analytical model was demonstrated by comparing the analytical performance pre- 
dictions with the experimental data obtained from the Twin-Spool Turbopump 
testing discussed previously. 

This program, which is in FORTRAN IV language, is suitable for operation 
on the IBM 360 system machines with at least 100,000 bytes of core available 
for program use. Hydrogen properties subroutines are incorporated into the 
program to provide hydrogen property data based upon the thermodynamic state of 
the fluids in the inducer, pump, and turbines. 

The analytical model is suitable for use with twin-spool turbopumps for 
which the steady-state characteristic curves (see Figures No. 104 through 
No. 107) have been predicted or determined from test data. 

A provision for a transient solution of the inducer suction line flow 
conditions based upon waterhammer theory has been incorporated into the program 
as an option for transient cases. 

Computed data always is supplied by this program as printed digital 
output. In addition, a program option provides for supplying digital data 
to a file for graphical presentation depending upon the particular computer 
facility. 

A discussion of the analytical model, computer program details, results, 
and an example case follows . 

A. ANALYTICAL MODEL 

The approach selected in formulating the computer model for this 
turbopump system was one based upon the use of over-all characteristic curves 
depicting the performance of each turbopump component. It is believed that 
this substantially reduced both the program complexity and its length because 
the data presented in each characteristic curve could have required one or 
more programs to generate. 

1. Major Assumptions 

The following are the major assumptions applied in this 

analysis : 

a. Main turbine mass flow rate equals inducer turbine mass 
flow rate. 
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Figure 105: Main Turbine and 

Inducer Turbine 
Efficiency Curves 





b. The flow in the inducer and pump components is 
incompressible. This assumption does not exclude the 
computation of density at each station of the pump system. 

c. The flow in all of the components is single-phase. 

d. Steady-state characteristic data can be used to adequately 
represent the system in a quasi-steady-state solution. 

e. Steady-state conditions exist initially for transient 
solutions . 

f. Bearing friction is negligible. 

g. Incompressible flow is adequate to describe the 
turbine exhaust system. 


2. Characteristic Curves 


The following characteristic curves are used to represent the 
performance of the turbopump components: 

a. Main Turbine Flow Parameter Curve, 




= function of main turbine total-to- 
mT total pressure ratio. Figure No. 104. 


b. Main Turbine Efficiency Curve, 

n = function of velocity ratio, U/Cq 

where Cq ' is the isentropic spouting 
velocity based upon total-to-total 
pressure ratio. Figure No. 105. 

c. Inducer Turbine Flow Parameter Curve, 


W 

~P 



i 


= function of inducer turbine total- 
IT to-static pressure ratio. Figure 
No. 104. 
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Inducer Turbine Efficiency Curve, 


Tij.^ = function of velocity ratio, U/Cq, 

where Cq is the isentropic spouting 
velocity based upon total-to-static 
pressure ratio. Figure No. 105. 

2 

e. Pump normalized head-rise curve (AH/N ) = function of 

(Q/N)p, Figure No. 106. The head rise also is a function 
of suction conditions (NPSH/N^) ; therefore, several 
curves are presented and are tabulated for the computer 
model . 

f. Pump efficiency, np = function of (Q/N)p, Figure No. 107. 
Also, efficiency is related to suction conditions and is 
presented as a fxmction of NPSH/n2. 

2 

g. Inducer normalized head rise, (AH/N )p “ function of 
(Q/N)i, Figure No. 106. 

i. Inducer efficiency, rip “ function of (Q/N)p, Figure 
No. 107. 


3. Basic Computational Sequence 

Two primary program options are illustrated on Figure No. 108, 
which is the basic computational sequence used in the computer program. The 
first option is one where the variation of main shaft speed with time is input 
while the second option is based upon a time-dependent selection of turbine 
inlet pressure. The computational sequence for steady-state cases is the same 
as for the first point of transient cases. Several iterative loops are required 
to close within iteration limits for the first time-point of transient cases 
and for all steady-state cases. The primary iteration loops of the program 
and the method for obtaining covergence are as follows: 


a. The main turbine torque equals the main pump torque 
(turbine inlet pressure option only) . The main shaft speed is corrected by the 
relationship 


N 

m. 


(n + 1) 



n 


SHP^ 

shpI 


1/3 


Eq. (1) 


until convergence, within limits, is accomplished (n = iteration number). 


b . The main turbine flow rate equals the inducer turbine 
flow rate. The main turbine pressure ratio is corrected by numerically 
evaluating the rates of change of the main and inducer turbine flow rates with 
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Figure 108. 


Primary Computational Sequence. 
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the main turbine pressure ratio as well as obtaining a simultaneous solution 
of these two relationships upon a finite difference basis to obtain a corrected 
main turbine pressure ratio. This method is repeated until convergence is 
achieved. The details of this pressure ratio correction technique are given 
in Section VII, C. 


c. The inducer turbine torque equals the Inducer torque. 

Once the inducer flow rate has been established, the relationship between 
inducer speed and torque is ascertained from the inducer normalized head-rise 
and efficiency curves (subprogram SHPIN) . This relationship then is used to 
correct inducer speed until convergence of the iteration loop is accomplished. 

The limits of convergence for the iterative solutions are 0.1%. 


For transient cases, the matching of inducer and main turbine 
flow rates is required after the first time point. Main-stage speed or torque, 
depending upon which program option is being exercised, is determined from a 
finite difference solution of one of the following time-dependent equations 
for time points other than the first: 


N u. A..^ = N ^ (X _ X ) (p input) Eq. (2) 

m, (t + At) m,t 2 ttI turbxne pump Ti 

2ttT 

X , , = X + . (N,. , . ~ N ) (N input) Eq. (3) 

turbine pump (720.) (At) (t + At) t v / 

Similarly, Inducer speed is determined for successive time points from the 
relationship 



(t + At) ^I, 


(720.) (At) 
t 2 ttI 


(x 


turbine 


X 


inducer 


) 


Eq. (4) 


The time increment At for the transient solutions is governed 
by the wave period in the suction line if the waterhammer solution is being 
used. Otherwise, the time increment can be input. 


All of the detailed equations involved in the analysis are 
included in Section VII, C. 
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B. COMPUTER PROGRAM 


The computer program is divided into a Main Program with several 
subprograms. All of the logic and computations for the inducer, inducer turbine, 
pump, and main turbine are handled in the Main Program. The subprograms are 
used for procedures such as input, output, table interpolations, and hydrogen 
properties. The following is a complete list of these programs as well as 
their function: 


MAIN 

FILE 

INTAB 

INPUT 

SHPIN 

TABIN 

TABP 

HPROP 

SVSL 

VPFUN 

CP 

GAMMA 

PRATO 

INLET 

DIAG 

OUTl 

0UT2 


PLOT 


All logic and computations related to the inducer, 
pump, and turbines. 

Used to read-in hydrogen properties deck. 

Used to read-in and list tabulated data representing 
the turbopump characteristic curves. 

Used to read-in and list case data including time- 
dependent input data. 

Establishes the relationship between inducer power 
and speed. 

Single interpolation subroutine used to interpolate 
turbine curves . 

Double interpolation subroutine used to interpolate 
pump and inducer curves. 

Used to determine supercooled liquid hydrogen properties. 
Used to determine saturated liquid hydrogen density. 

Used to determine the vapor pressure of hydrogen. 
Hydrogen gas specific heat subprogram. 

Hydrogen gas specific heat ratio subprogram. 

Used to "initialize" main turbine pressure ratio. 

Suction line waterhammer solution 
Subprogram used to write diagnostic messages. 

Principal output subprogram used to list complete 
set of computed data at specified computation intervals. 
Secondary output subprogram used to list inducer and 
suction parameters at intermediate computation 
Intervals . 

Dummy subprogram to be replaced by an appropriate 
plotting set-up program if desired. 


The details of each of these programs, including flow charts, are 
presented in the following discussions. The computer program listing is 
included as Appendix A. 


1. Main Program 

Suction line sonic velocity (Subprogram HPROP) 
^ ^^^I,i, ^I,i^ 


Computation time interval 

At = L /a Eq. (5) 

S1.J 

Suction line loss coefficient 



(f) (Lg) 
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2 g D 


Eq. (6) 



Time dependent input conditions, 

Tank pressure 

= f(Time) 

Main turbine inlet temperature 

T' = f(Time) 

ml , 1 

Main turbine inlet total pressure 

Kt.± 

Main shaft speed 

N = f (Time) 

m 

Main turbine gas properties, 

Specific heat ratio 

Y = f(T’ P' ) 

^mT ^ mT,i, mT,r 

Specific heat 

C „ = f(T' P’ ) 

p,mi mT,x, mT,i 

Inducer inlet vapor pressure 


PVP 


I,i 


«h.i> 


Inducer inlet specific volume 


If 

SV 

If 

SV 


P 


I,i 


P 


I,i 






< PVP^ . 
- I.i 




> PVP 


I,i 


h.i> 


(Subprogram TABIN) 
(Subprogram TABIN) 

(Subprogram TABIN) 
(Program option 1) 

(Subprogram TABIN) 

(Subprogram GAMMA) 
(Subprogram CP) 

(Subprogram VP FUN) 

(Use saturation densii 
(Subprogram SVSL) 

(Subprogram HPROP) 
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Pump inlet flow rate 


%,i - "p 

Pump inlet vapor pressure 

PVP = f(T ) 

P» i P »i 

Pump inlet specific volume 


If P < PVP . 
p,i - p,i 

SV = f(T ) 

P » i P >i 


If P . > PVP . 

P.i P»i 

SV . = f(P . T .) 

p,i p,i, p,x 

Pump weight flow rate 

Q 


W 


w . 


£xi. 


(SV^ .) (60) (7.4806) 
P»i 


= W 


I P 

Inducer inlet pressure 

“i- 

Inducer volumetric flow rate 


Eq. (7) 

(Subprogram VPFUN) 

(Use saturation density) 
(Subprogram SVSL) 

(Subprogram HPROP) 


Eq. (8) 


(Subprogram INLET) 


^1,1 " ^^^I,i^ (7.4806) (W^) 


Eq. (9) 


Inducer inlet total pressure 

,2 144 SV 


p: . 
I.l 


= p, . .+ 

1,1 


W 


I,i 


2 g 


Eq. (10) 


Inducer net positive suction pressure 


NPSPi 


Eq. (11) 
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Inducer net positive suction head 


NPSH = (144) (NPSP ) (SV .) 

-i- X X } X 


Inducer normalized suction conditions 
NPSH^ 


^ NPSH^ 


N‘ 


I ^I 


Inducer normalized flow rate 


= -if 


Inducer normalized head rise 


(A 


f 



NPSE 

„2 

. (Q/N)j 

1" h 


N j 

I 


Inducer efficiency 


’^I 

Inducer head rise 
AH, 



NPSH' 


„2 


N 


(Q/N). 


2 


N, 


\ N 


Inducer total pressure rise 
AH 

Ap» = ± 

I 144 SV. 


1,1 


Inducer power 


SHP, 


Wj. AH^ 

550 n. 


Inducer torque 


33000 SHP, 


2tt N, 


Eq. (12) 


Eq. (13) 


Eq. (14) 


(Subprogram TABP) 


(Subprogram TABP) 


Eq. (15) 


Eq. (16) 


Eq. (17) 


Eq. (18) 
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Inducer discharge total pressure 


Pi = + AP' 

I,e 1,1 I 


Pump inlet total pressure 

= P,' 


P.i 


I,e 


Pump inlet static pressure 


■p»i 


P ’ - i ^ 

P»1 


\ \2 144 SV 




2 g 


Inducer discharge pressure 


Pt = P . 
I,e p,i 


Eq. (19) 


Eq. (20) 


Eq. (21) 


Eq. (22) 


Pump net positive suction pressure 


NPSP = P’ - PVP . 
P P»i P.i 


Pump net positive suction head 

NPSH = (144) (NPSP ) (SV ^) 
P P P»i 

Pump normalized suction conditions 


NPSH 


N 


NPSH 


N 


rp p 
Pump normalized head rise 





** 

f 

AH' 


= f 


■NPSH 

„2 1 



i „2 

N 




N 


'p 


- 

V 


, (Q/N). 


Pump efficiency 
n_ = f 



/ l 


NPSHj 


„2 


i N / 


> (Q/N). 


Eq. (23) 


Eq. (24) 


Eq. (25) 


(Subprogram TABP) 


(Subprogram TABP) 


18? 



Pump head rise 


N^/ P 


Pump total pressure rise 
AH 

AP’ = 

^^p 144 SV . 

P.i 


Pump power 
SHP 


W AH 

JE E 

550 n 


Pump torque 


33000 SHP 


Pump discharge total pressure 

P' = P' . + AP’ 
p,e p,x p 

Pump discharge static pressure 


/ • \2 144 SV . 

p « pi - P>i 

p,e p,e \ A 2 g 

® P 

Main turbine flow parameter 


^mTV^;i,i 

^mT,i 


= f(Pr (Subprogram TABIN) 

ml'' 


Main turbine isentropic spouting velocity 


1 

r* 

1 

1 

’^mT~^ ~ 

1 ^^^ S,mT ^;t,1 

1 - 

X 

1 


Eq. (32) 
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Main turbine mean blade speed 


2ir N r 
m m 

(12) (60) 


Eq. (33) 


Main turbine velocity ratio 


(U/Co)^ 


Eq. (34) 


Main turbine total efficiency 


Main turbine total ^thalpy drop 


(Subprogram TABIN) 


mT 

2 g J 


Eq. (35) 


Main turbine flow rate 


P* 

P -SLtl 


(Program option 1) 


Eq. (36) 


Main turbine power 


(Program option 1) 




Eq. (37) 


Main turbine torque 


33000 SHP 


Eq. (38) 


Main shaft acceleration relation* Program option 1. 


Nm f + Ai- “ ^ (t T, - T ) Eq. (39) 

’ m ^ 

Main shaft acceleration relation. Program option 2. 


T ^ = T + [N ^ - N , 1 Eq. (40) 

mT,t p,t 720 At m,t m,(t - At)'* 
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Main turbine power 


SHP 


2Tr N T 
m ml 


mX 33000 

Main turbine flow rate 


550 SHP 


W 


mX 


mX 


J Ah 


mX 


Main turbine inlet total pressure 

W tJ X' 

_ mX V mX,i 


P' 

mX,i 


F P 


(Program option 2) 

Eq. (41) 

(Program option 2) 

Eq. (42) 

(Program option 2) 

Eq. (43) 


mX 


Main turbine discharge total pressure 


o' = P' /Pr 

PmX,e mX,i' mX 

Inducer inlet total pressure 

P* = P' 

IX, 1 mX,e 

Inducer turbine discharge static pressure 


Eq. (44) 


Eq. (45) 


An Incompressible treatment of the turbine exhaust system 
losses results in the Darcey equation for head loss 




KV 


‘Loss 2 g 
From continuity 

W = pVA 

then 

H. 


K W 


Loss 


2 2 
2 g p A^ 


and 


AP = 




OSS 


144 


2 g 144 pA^ 
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Using the Ideal gas equation of state to compute exhaust Inlet 
density 


then 


Let 


ex 


IT.e 


R T 


IT.e 


K W R T 


AP 


IT.e 

2 g 144 a' 


K R 


2 = constant for a particular 


2 g 144 A exhaust system 


then 


AP = 


_ ^ex ^ IT "^Il.e _ 


IT,e 


P - P 
IT,e ex 


Solving for Inducer turbine exhaust pressure (Pix.e^ terms 
of exhaust system backpressure (Pex) » turbine flow rate (Wj,p) , 
turbine exhaust temperature (Tj-f^g) , and exhaust system loss 
coefficient (C^^) , the resulting relationship Is 


ex 


4 


^ex ^ ^ex ^IT ^IT.e 


IT.e 2 

Inducer turbine total to static pressure ratio 

Pr = P' /P 
I IT. r IT.e 


Eq. (46) 


Eq. (47) 


Inducer turbine flow parameter 


FP, 


W ~v/~T^ 

= IT ^ IT.l ^ 


P' 
IT.l 


f(Pr^^) (Subprogram TABIN) 


Main turbine exhaust total temperature 


Ah 


T ^ s T’ ^ — — • 

mT.e mT.l C 


mT 


Eq. (48) 


p.mT 
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Inducer turbine inlet total temperature 


IT,i “ mT,e 


Inducer turbine flow rate 



F P. 


IT 


PZ 


ITljS 



Eq. (49) 


Eq. (50) 


The pressure ratio split between turbines must eventually be 
such that the main turbine and the inducer turbine flow rates 
are equal (within a tolerance). The main turbine pressure 
ratio iteration is carried out as indicated on Figure No. 109. 
The following equations are involved. 


On a finite difference basis, the rate of change of main 
turbine flow rate with main turbine pressure ratio is 


‘ "“'ml 


Eq. (51) 


and the rate of change of inducer turbine flow rate with 
main turbine pressure ratio is 


*”lT "it ■ “it 

(n) - (n-1) 


Eq. (52) 


Using these two slopes, a new pressure ratio estimate can be 
made (see Figure No. 109) from the relationship 


"“'ml 




“it 


“ml 


AW 


mT 


AW, 


IT 


APr 


mT 


APr 


mT 


Ea. (53) 


Inducer turbine gas properties 
Specific heat ratio 

= f(Tj^ ^) (Subprogram GAMMA) 
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Turbine 


Pr Pp ^ 

mT mT 


Main Turbine Pressure Ratio 

The slopes of the curves are for the case of constant 
main turbine power 


Figure 109. Main Turbine Pressure Ratio 



Specific heat 


%,IT - 


(Subprogram CP) 


Inducer turbine ideal enthalpy change 


^’^IT.id S,IT ^IT.i ■ [pr^^ 
Inducer isentropic spouting velocity 


Yit"1 


2 g J Ah, 


IT, id 


Inducer turbine mean blade velocity 
2ir r-j 

^IT “ (12) (60) 

Inducer turbine velocity ratio 


(U/Co) 


IT Co, 


Inducer turbine static efficiency 


= f[(U/Co)j^] 


(Subprogram TABIN) 


Inducer turbine enthalpy change 
AhiT '^IT ^^IT,id 

Inducer turbine exhaust total temperature 


rp f •y I _ 

IT,e IT,i C 


Inducer turbine power 


Wit "^it 


Eq. (60) 


189 



Inducer turbine torque 


33000 SHPj.^ 
IT “ 2iT Nj. 


Eq. (61) 


Inducer speed corrections are made using a technique similar 
to that discussed previously for main turbine pressure ratio 
corrections. This leads to the following expression for 
successive inducer speed iterations: 


Nj (n+1) = Nj (n) + 


SHPj.^ (n) - SHPj (n) 
ASHP^ ASHP^^ 

ANj An!^ 


Inducer turbine acceleration relationship 

. 720 At 


N = N . 

I,t + At I,t 2ir I^ 


(Tit - tj) 


Eq. (62) 


Eq. (63) 


The Main Program computational sequence is illustrated on 
Figure No. 110. 


2. Subprograms 

a. FILE 

All of the hydrogen properties deck listing (Appendix B) 
is read-in by the subprogram FILE. These data are stored in tabular form for 
use in the hydrogen properties subprograms. Figure No. Ill is a flow chart of 
this subprogram. 


b. INTAB 

The tabular data representing the turbopump component 
characteristic curves are read-in and stored in appropriate arrays for use in 
the interpolation subprograms. Cards 1 through 25, which are subsequently 
described in Section VII, D, are the cards read in this program. Figure No. 112 
is a flow chart of this subprogram. 

c. INPUT 

The data pertinent to a particular case (Cards 26 through 
36; see Section VII, D) are read-in by the subprogram INPUT. Figure No. 113 
is a flow chart of this subprogram. 
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MAIN PROGRAM 



Figure 110. - Main Program Computational Sequence. 

(Sheet 1 of 7) 
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COMPUTE NEW TANK 
PRESSURE 

CALL TABtN (TIME, PTK) 



CALL DIAC 

WRITE ERROR MESSAGE 
GO TO NEXT CASE 


COMPUTE NEW TURBINE 
INLET temperature 
CALL TABIN (TIME, TTIM) 



CALL OIAG 

WRITE ERROR MESSAGE 
GO TO W XT CASE 


COMPUTE NLW TURBINE 
INLET PRESSURE 
CALL TABIN (TIME, PTIIM) 


107 

NO 

COMPUTE GAMM, CPM 
GAMM GAMMA (TTJM, PTTIM) 
CPM CP (TTIM, PTTI M) 





SAVE OLD VALUE OF 
MAIN SHAFT SPEED 


CALL OIAG 

WRITE ERROR MESSAGE 
GO TO Ni XT CASE 


5AVL OLD VALUE OP 
MAIN SHAPT SPl.l D 

I 

COMPUTE NEW MAIN 
SHAFT SPEED 
CALL TABIN (TIME. NM) 





CALL DIAG 

WRITE ERROR MESSAGE 
GO TO NEXT CASE 


SET COUNTERS 
SAVE MAIN TURBINE 
PRESSURE RATIO FROM 
PREVIOUS TIME POINT 


COMPUTE INDUCER INLET 
VAPOR PRESSURE 
PVPIl •• VPFUN (TPII) 


COMPUTE INDUCER 
SPECIFICVOLUME 
CALL HPR0P(PII, TPII, SVID 


RETURN POINT 
APTt R SPLLO 
CORRECTION 
PTIIM INPUT CASE. 


INCREASE lURATI ON 
COUNTER 


RETURN POINT 
FOR NEW PUMP DENSITY 
BASED ON CORRECTED 
PUMP INLET PRESSURE 



111 

SET INDUCER 
SPECIFIC VOLUME 
EQUAL TO SATURATION 
SPECIFICVOLUME 
SV« = SVSL (TPil) 



NEW 


QMI 

EQ. 

7 

UM 

EQ. 

33 


I 




INCREASE ITERATION 
CmJNTFR 

1 

! 


1 PVPMI ~ VPFUN (TPMI) 1 



SET PUMP 
SPLCinC VOLUME 
LOUAL TO SATURATION 
SPECIFIC VOLUME 
SVMI =SVSL(TPMi) 


Figure 110. 


Main Program Computational Sequence. 
(Sheet 2 of 7) 
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MAIN PROGRAM (CONT) 


WP 

EQ. 8 

Wl = vw> 






CALL DIAG 

NO WATER-HAMMER 


WRITE ERROR MESSAGE 

SOLUTION USED 


<ry^ 

GO TO NEXT CASE 


' 611 

nr 

4 

PTII 

EQ. 

10 

NPSPI 

EQ. 

11 

NPSHI 

EQ. 

12 

NPSNl 

EQ. 

13 



EATPl 

CALL TABP (NPSNl, QNI, EATPl) 


OHi 

EQ 

15 

DPI 

EQ. 

16 

SHPPI 

EQ. 

17 

TORPI 

EQ. 

18 

PTMI 

EQ. 

20 

PTIE 

EQ. 

19 




SAVE OLD VALUE OF 
PUMP DISCHARGE 
PRESSURE 

1 

PMI 

PIE = PMI 

EQ. 21 



DIFFERENCE EXCEEDS 
LIMIT, RETURN TO 
125 WITH CORRECTED 
PRESSURE 




NPSPM 

EQ. 

23 

NPSHM 

EQ. 

24 

NPSNM 

^ 

?5 





EATPM 

CALL TABP {NPSNM, QNM, EATPM) 



■1 


ps 

CALL DIAG 

WRITE ERROR MESSAGE 


GO TO NEXT CASE 


CALL OIAG 
WRITE ERROR MESSAGE 
GO TO NEXT CASE 




OHM 

EQ. 26 

DPM 

EQ. 27 

SHPPM 

EQ 28 

TORPM 

EQ. 29 

PTME 

EQ. 30 

PME 

EQ. 31 




Figure 110. - Main Program Computational Sequence. 
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MAIN PROGRAM (CONT) 



Figure 110. Main Program Computational Sequence 
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MAIN PROGRAM (CONTI 


1 


265 

WTM EQ. 42 

PTTIM EQ. 43 

GAMM - GAMMA (TTIM, PTTIM) 
CPM =CP(TTIM, PTTIM) 


RETURN POINT FOR 
CORRECTED EXHAUST 


REDUCE MAIN TURBINE 
PRESSURE RATIO 


CHECK ITERATI ON 
counter 


RETURN TO 200 
WITH CORRECTED 
MAIN TURBINE 
PRESSURE RATIO 




FPI 

CALL TABIN (PRI, FPI) 



COMPARE INDUCER 
TURBINE AND MAIN 
TURBINE FLOW RATES 




270 


PTTEM EQ. 44 

PTTII = PTTEM EQ. 45 



310 

P 




1 TEMPERATURE I 

] 

r 

SET 

TTEG = TTEl 



320 *1 

PTEI 

PRI 

EQ. 46 
EQ. 47 




WITHIN LIMITS 


DIFFERENCE EXCEEDS 

CONTINUE 


LIMIT 



CORRECT MAIN TURBINE 
PRESSURE RATIO 

CALL PRATO (SHPPM, TTEM, PTTEM, 
UM, PRM) 



CALL DIAG 

WRITE ERROR MESSAGE 
GO TO NEXT CASE 


RETURN TO 190 WITH 
CORRECTED PRESSURE 
RATIO 


CHECK ITERATDN 
COUNTER 


CALL DIAG 



CALL DIAG 

WRITE ERROR MESSAGE 


^^E RATIONS 

WRITE ERROR MESS/^GE 

GO TO NEXT CASE 



GO TO NEXT CASE 


CALL DIAG 

WRITE ERROR MESSAGE 
GO TO NEXT CASE 


TTEM 

EQ. 

48 

TTII =TTEM 

EQ. 

49 

WTI 

EQ. 

50 


*^XHAUST^ 
TEMPERATURE ’ 
CORRECTED . 


COMPUTE RATE OF CHANGE 
OF MAIN TURBINE 
FLOW RATE WITH 
MAIN TURBINE 
PRESSURE RATIO 
SLOP 1 EQ. 51 I 


COMPUTE RATE OF 
CHANGE OF INDUCER 
TURBINE FLOW RATE 
WITH MAIN TURBINE 
PRESSURE RATIO 
SLOP 2 EQ. 52 




445 


1 PRM 

53 1 




Figure 110. - Main Program Computational Sequence. 
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MAIN PROGRAM (CONT) 



Figure 110. - Main Program Computational Sequence. 
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MAIN PROGRAM (CONT) 



Figure 110. 


Main Program Computational Sequence 
(Sheet 7 of 7) 
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SUBROUTINE 


FILE 


HYDROGEN PROPERTIES INPUT 



Figure 111. - Subroutine FILE Flow Chart. 
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SUBROUTINE 


INTAB 



Figure 112. - Subroutine INTAB Flow Chart. 
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SUBROUTINE 


INPUT 



Figure 113. - Subroutine INPUT Flow Chart. 
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d. 


SHPIN 


This subprogram is used to establish a relationship 
between inducer speed and shaft power for given values of Inducer normalized 
suction head (NPSH/N^) and inducer flow rate. The speed-power relationship 
is used in the inducer speed iteration loop of the main program. 


This relationship is established using the tabulated 
characteristic data for the inducer. Corresponding values of AH/N^, p, and 
Q/N were input for curves of constant NPSH/N^. For each tabulated value of 
Q/N, AH/n 2 and p are interpolated between curves of constant NPSH/N"^; then, 
speed is computed for these points from the relationship 


N 


= Q 

(Q/N) 


and power is determined from 

SHP 


W 


/ AH\ 

If) 


550 p 


N 


(For all Q/N) Eq. (64) 


(For all Q/N) Eq. (65) 


These corresponding speed and power points then are stored as elements of an 
array for future use (see Figure No. 114). For values of NPSH/N^ which are 
either greater or less than the tabulated values , the maximum or minimum 
curve is used, respectively . 


Interpolation equations used in this subprogram are 

as follows ; 

(AH/N^)^ = Y(1,J) + [z(i)~-^z(i-l)] 

(p)^ = S(1,J) + [z(iy~-^Z(i ' -lj] [^(2,J) - Y(1,J)] Eq. (67) 

Figure No. 115 is a flow chart of this subprogram, 
e. TAB IN 


Single linear Interpolation of the turbine character- 
istic curves and the tabular data relating inducer power to speed result from 
the use of this subprogram. The tabulated data are used to determine the 
corresponding respective dependent variable (i.e. , flow parameter, FP; 
efficiency, n; and inducer speed) for an independent parameter (i.e., pressure 
ratio, Pr; velocity ratio, U/Co; or inducer shaft power, SHP^.). Figure No. 116 
is a flow chart of this subprogram. 
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NPSH/N = Z(I) (Tabulated Curve) 
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Figure 114. - SHPIN Interpolation Procedure, 




Figure 115. - Subroutine SHPIN Flow Chart. 


















SUBROUTINE TAB IN 



Figure 116. 


Subroutine TAB IN Flow Chart. 
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f. 


TABP 


This is a double interpolation subprograpi used to deter- 
mine the pump normalized head rise , inducer normalized head rise, pump 

efficiency, and inducer efficiency in teirms of their respective normalized 
flows (Q/N) and normalized suction heads (NPSH/n2) . Tabular data based upon 
the pump and inducer characteristic curves are input and stored in files by 
subprogram TABIN. The dependent variables, normalized head rise (AH/N^) and 
and efficiency (n) , are tabulated with respect to two Independent variables, 

Q/N and NPSH/N^. This is accomplished by tabulating data pairs of n versus Q/N 
and AH/N^ versus Q/N along lines of constant NPSH/N^. The table is interpolated 
linearly both with respect to Q/N and NPSH/N^ as shown on Figure No. 117. 


If NPSH/N^ is greater than the maximum value for which 
data is tabulated, the curve of maximum NPSH/N^ is used; if it is less than 
the minimum tabulated value, the minimum curve is used. Should Q/N be less 
than the minimum table value, an error is detected and control is returned to 
the main program for a diagnostic message. If Q/N is greater than the maximum 
table value, a similar diagnostic message results. Figure No. 118 is a flow 
chart of this subprogram. 


g. Hydrogen Properties Subprograms 
(1) HPROP 

This subprogram is used to determine properties 
data for liquid or supercritical hydrogen. Existing tabular hydrogen properties 
(Ref. 19) are utilized. The temperature range covered is from the liquid- 
solid phase boundary to the saturation temperature or 72°R, whichever is greater 
for a given isobar. The pressure range goes from one atmosphere to 100 atmo- 
spheres. The following properties are tabulated as a function of temperature 
for the Isobars of this indicated pressure range; 

- Specific Volume 

- Enthalpy 

- Entropy 

- Sonic Velocity 

These tabulated data constitute the major portion of the hydrogen properties 
deck listing of Appendix B. Thus, given a pressure and one of the five 
parameters (viz., temperature, specific volume, enthalpy, entropy, or sonic 
velocity), the table can be utilized to supply any one of the three remaining 
properties. In the Twin-Spool Program, this computer subprogram was used 
only to determine the specific volume and sonic velocity of the fluid as a 
function of pressure and temperature. Figure No. 119 is the flow chart for 
this subprogram. 
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Interpolation Equations 


(AH/N^) ' 


Y(1,J-1) + 


Cq/n - X(1,J-1)1 
p(l,J) - X(1,J-1)] 


(AH/N^)" = Y(2,J-1) 
(AH/N^) = (AH/N^)' 


+ [Q/N - X(2'J-I)3 
[X(2,J) - X(2,J-1)J 

CnPSH/N^ - Z( 1-1)1 

^ £Z(I) - Z(I-1)3 


2 

The above example is for AH/N ; however, it 
applicable for the efficiency calculation. 


Y(1,J) 

- Y(1,J-1)] 

Eq. (68) 

Y(2,J) 

- Y(2,J-1)1 

Eq. (69) 

[(AH/N^" 
also is 

- (AH/N^)' 

Eq. (70) 


Figure 117. - TABP Interpolation Procedure. 
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SUBROUTINE TABP 



Figure 118. 


Subroutine TABP Flow Chart. 
(Sheet 1 of 2) 
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Figure 118. - Subroutine TABP Flow Chart. 

(Sheet 2 of 2) 
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Figure 119. - Subprogram HPROP Flow Chart. 

(Sheet 1 of 2) 
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(2) SVSL 


This subprogram is used to find the specific volume 
of saturated liquid hydrogen, which is givqn by 

SV ^ 1 , = — — Eq. (71) 

sat. liq P .. 1 • 

^ sat. liq 

where the saturated liquid density p > , is given by the equation of state 

S3tZ • XXQ 


+ A, (T + A- (T -T) + A, (T _ -T)' 

It. T. crit. 2 crit. 3 crit. 


sat. liq. ^crit 


S 2 3 

+ A, (T .. -T) + A^ (T -T) (g/mole cm ) 

4 crxt. 5 crxt. ® 


Eq. (72) 


which is taken from Reference 19 . 

The constants A^, A., A^, A. and A^ are listed in 
Appendix B as part of the hydrogen properties deck. The critical density 
(p ) is taken as 

^crit. o 


Pcrit. 0.01559 (g/mole cm ) 


and the critical temperature is 


T = 59.357°R = 32.976°K 
crit. 


Figure No. 120 Includes the flow chart of this 


subprogram. 


(3) VPFUN 


This subprogram is utilized to find hydrogen vapor 
pressure as a function of temperature. Reference 20 gives vapor temperature 
as a function of pressure; therefore, a numerical method was used to find a 
solution. 

Vapor temperature is given by the relationship 
T^p = { - (B^ • - 0.4342945 Ln(P)) + [(B^ • B^ + B^ - 0.4342945 Ln(P))' 


4 B^ (B^ • B^ + B 2 - 0.4342945 Ln(P))] ' }/2 B^ 


Eq. (73) 
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FUNCTION SUBPROGRAM SVSL 



FUNCTION SUBPROGRAM VPFUN 



Figure 120. - Subprograms SVSL and VPFUN Flow Charts 














where: 

= 2.00062 

= -50.09708 

B^ = 1.0044 

B, = 0.01748495 
4 

Ln = natural logarithm 


P = pressure In atmospheres 

To initiate the numerical solution of the above 
relationship for vapor pressure, an approximate polynominal was derived: 


= (301.2628 - 17.1219 T + 0.2549671 T^)/14.696 (ATM) 

Eq. (74 


subprogram. 


Figure No. 120 includes the flow chart for this 


(4) CP 


Specific heat data have been curve fit for hydrogen 
gas as a function of temperature and pressure. These relationships are used 
in this subprogram to provide specific heat data for turbine calculations. 

For temperatures below 800°R, the relationship is 


C = 4.696 + 2.18 X lO"'^ P 
P 

- 1.0 X 10”^ (0.3179 + 4.853 x 10~^ P) T 

+ 1.0 X 10“^ (0.2051 + 2.80 X lO"^ P) T^ Eq. (75) 

and for temperatures above 800°R, the appropriate equation is 


C = 3.5628 + 4.453 x 10 ^ P 
P 

- 1.0 X lO"^ (0.2151 + 4.773 x 10~^ P) T 

+ 1.0 X 10“^ (0.1258 + 1.293 x 10“^ P) T^ Eq. (76) 


subprogram. 


Figure No. 121 includes the flow chart for this 
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FUNCTION SUBPROGRAM CP 



Figure 121 


Subprograms CP and GAMMA Flow Charts 








(5) GAMMA 


A curve fit of the specific heat ratio (y) as a 
function of pressure and temperature has been established over two temperature 
ranges for hydrogen gas. These curves are used in this subprogram to supply 
specific heat ratio data to the main program for turbine calculations. For 
temperatures below 1100°R, the equation used is 

Y = 1.2737 + 6.286 x lO"^ P 

, + 1.0 X 10“^ (0.2876 - 1.32 X lO"'^ P) T 

+ 1.0 X 10“^ (-0.164 + 6.92 x lO"^ P) Eq. (77) 

and for temperatures above 1100“R, the equation used is 

Y = 1.4032 + 1.05 X 10“^ P 

+ 1.0 X 10“^ (0.629 -.1.490 x 10“^ P) T 

+ 1.0 X 10“^ (-0.1074 + 4.40 x lO"^ P) Eq. (78) 


subprogram. 


Figure No. 121 includes the flow chart for this 


h. PRATO 


The function of this subprogram is to establish an 
initial value for the main turbine pressure ratio based upon the power require- 
ment (SHPp) , inlet temperature (T^) , estimated backpressure (P4) » and mean 
blade speed (U). The initial pressure ratio is corrected as indicated in the 
discussion of the main computer program. The original method for "initializing" 
the main turbine pressure ratio (Ref. 18) was found to be unstable in certain 
cases; therefore, it has been replaced by the method described herein. 


A trial-and-error approach is applied by using the 
tabulated main turbine flow parameter curve. Beginning with the minimum 
tabulated pressure ratio, the ideal enthalpy drop is computed from the 
relationship 



t! 
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- 

izi -1 


Y 
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Eq. (79) 


and the isentropic spouting velocity is 


Co 



2 g J Ah 


id 


Eq. (80) 
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Then, the velocity ratio, U/Co, can be determined and the corresponding main 
turbine ef f Iclency, n , is found by interpolation, from the tabulated curve. 

The actual enthalpy drop then is 

Ah = n Ah^^ Eq. (81) 

and the main turbine inlet pressure is 

= (P^) (Pr) Eq. (82) 

Using the flow parameter (FP) value corresponding to 
the pressure ratio, the weight flow rate is found 

W = (FP) (Pp/v^ Eq. (83) 


and the corresponding shaft power is 


SHP^ 


W Ah J 
550 


Eq. (84) 


If the resulting turbine power, SHP^, is less than the 
specified pump power, SHPp, the next higher pressure ratio is utilized until 
SHP>j > SHP . Linear interpolation between this final value and the previous 
one then is made to provide the necessary initial pressure ratio • 


(Pr^ - Pr ) 
T, „ . n n-1 

Pr . = Pr + 

in n SHP 


T,n - ^«^T,n-l 


(SHP^ - SHPp) 


Eq. (85) 


Figure No. 122 is the flow chart of this subprogram. 


i. INLET 


This subroutine is used for the waterhammer solution 
in the Inducer suction line, with some of the logic being handled in the main 
program. 

For transient flow in pipes, the equation of motion can 
be written in the following form 


3H ^ 8V ^ fV 
® 3X 3t 2D 


V 


o 


Eq. (86) 


and the continuity equation is 
3t “ g 3X ° 


Eq. (87) 
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A finite difference solution to these equations is 
given in Reference 21 as 

H (t) = H,(t-At) - f [V^(t) - V (t-At)] - V (t-At) |V (t-At) | 

6 X g© X ZgliX X 

Eq. (88) 

V.(t) = V (t-At) +1 [H (t) - H (t-At) - V^(t-At) V (t-At)] 

X 6 3.x 6 ilgJJ© © 

Eq. (89) 

where the time increment At is given by At = -^ and the subscripts are as 
shown below: 



In this case, the finite difference solution given by 
Equations (88) and (89) is based upon a known inlet head (H^) or pressure 
and a known exit velocity (Vg) . The sonic velocity used in this subprogram 
is for a rigid pipe. Figure No. 123 is the flow chart for this subroutine. 

j . DIAG 

Diagnostic messages explaining problems associated with 
the table interpolation subroutines are generated by using this subprogram. 
The messages supplied are considered to be self-explanatory. 

k. OUTl 

All of the computed data generated by the program is 
written by this subprogram at the specified time intervals. An example of 
the information supplied is included in Appendix B. 

l. 0UT2 

Intermediate suction and inducer data generated between 
specified print Intervals is written by this subprogram for transient cases 
involving a waterhammer solution. 
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Figure 123. - Subroutine INLET Flow Chart. 
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m. PLOT 


The logic of the main program is such that a program 
option (see Section VII, D) will cause the data generated by the program to be 
transmitted to this subroutine for processing so that a plot can be generated 
from it. The subroutine PLOT supplied with the program is only a dtnrany one 
which produces a diagnostic message should an attempt be made to exercise this 
option. This dummy subprogram can be replaced by an appropriate subprogram 
which is compatible with the particular computer facility wherein the program 
is being run. The arguments of the subprogram are as follows : 

(1) Number of parameters to be plotted 

(2) Data array 

(3) Branch sequence number 

This argument list may be changed providing a corre- 
sponding change is made in the MAIN program call sequence. 
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C. PROGRAM USE 

This program is written in FORTRAN IV language and is suitable for 
use on IBM 360 system machines. Only the more basic features of FORTRAN were 
utilized which permits the use of lower level IBM FORTRAN compilers. Approxi- 
mately 100,000 bytes of core are needed to execute the program without using 
overlays. Appendix A is a complete listing of the program while the FORTRAN 
and analysis nomenclatures are included as Appendix C. 

1. Program Loading 

The format for each card described in this section is 
Illustrated on the load sheets included as Figure No. 124. Generally, float- 
ing point format is used for all real numbers except for some of the hydro- 
gen properties data. All integer data must be right adjusted in the field. 

The following field specifications are shown on the load sheets (Figure 
No. 124): 


. BCD - Any literal Alpha-numeric data 

. FP - Floating point, decimal required 

. I - Integer, requires right adjustment in the field 

The necessary hydrogen properties deck, which is shown on the 
load sheets, is included in Appendix B, along with an example case. This deck 
is the first data for a case. 

Data for each of the remaining cards is as follows: 


Card 

J, 

This card is used for the date which is printed at the top of 
page of output . 

each 

Col. 

1-2 

IM - Month 



3-4 

ID - Day 



5-6 

lY - Year 


Card 

_2 

Identification card for the main turbine flow parameter curve 

. 

Col. 

1-3 

K(l) - The number of "X" - "Y" pairs of data used to describe 
flow parameter curve. A maximum of 30 pairs can be used. 

the 


4-8 

Blank. 



9-80 

Any identifying literal data. 


Card 

2 

"X" - "Y" pairs of data from the flow parameter curve. This 

card 


is divided into fields of 10 columns and can be repeated as many 
times as necessary to input all points. The points must be input 
in the ascending order of pressure ratio. 
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Figure 124. - Program Load Sheets 
(Sheet 5 of 5) 







Card 3 (cont.) 


Col. 1-10 

XT 

(1, 1) 

11-20 

YT 

(1, 1) 

21-30 

XT 

(1, 2) 

31-40 

YT 

(1, 2) 


first pressure ratio point (total-to-total) . 
first flow parameter point, 
second pressure ratio point . 
second flow parameter point. 


Card 4 
Col. 1-3 

4-8 

9-80 


Identification card for the main turbine efficiency curve. 

K (2) - The number of "X" - "Y" pairs of data used to identify the 
main turbine efficiency curve. A maximum of 30 pairs can be used. 

Blank 

Any identifying literal data. 


Card 5 "X" - "Y" pairs of data from the main turbine efficiency curve. 

This card is divided into fields of 10 columns and can be repeated 
as many times as necessary. Input data must be in the ascending 
order of velocity ratio (U/Co) . 

Col. 1-10 XT (2, I) - first velocity ratio point (based upon total-to-total 
pressure ratio). 

YT (2, 1) - first efficiency point (total). 


Card 6 
Col. 1-3 


4-8 

9-80 


Identification card for the inducer turbine flow parameter. 

K (3) - The number of "X" - "Y" pairs of data used to identify the 
Inducer turbine flow parameter curve. 

Blank. 

Any identifying literal data. 


Card 7 

Col. 1-10 
11-20 


"X" - "Y" pairs of data from the 
The same format as Card 3. 

XT (3, 1) - first pressure ratio 

YT (3, 1) - first flow parameter 


inducer flow parameter curve. 

point (total-to-total) . 
point . 
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Card 8 
Col. 1-3 

4-8 

9-80 

Card 9 
Col. 1-10 
11-20 


Card 10 
Col. 1-3 
4-6 
7-8 
9-80 

Card 11 

Col. 1-10 
11-20 

Card 12 

Col. 1-10 
11-20 

Card 13 

Col. 1-10 
11-21 


Identification card for the inducer turbine efficiency curve. 

K (4) - The number of "X" - "Y" pairs of data used to identify 
the inducer turbine efficiency curve. 

Blank. 

Any identifying literal data. 

"X" - "Y" pairs of data from the main turbine efficiency curve. 
The same format as Card 5. 

XT (4, 1) - first velocity ratio point (based upon total-to-total 
pressure ratio) . 

YT (4, 1) - first efficiency point (static). 


Identification card for the main pump normalized head rise curves. 

L (1) - the number of suction-dependent, normalized head curves. 

K (5) - the number of "X" - "Y" pairs for each head rise curve. 
Blank 

Any identifying literal data. 

2 

Suction conditions (NPSH/N ) for each main pump head rise curve in 
ascending order. A maximum of 10 curves can be used. 

ZP (1, 1) - first curve 

ZP (1, 2) - second curve 

Normalized flow rate (Q/N) points for the main pump head rise 
curves. The same Q/N points serve as the abscissa for all of the 
head curves. Repeat card as many times as necessary. 

XP (1, 1) - first Q/N point. 

XP (1, 2) - second Q/N point. 

Ordinates of the main pump normalized heat rise 2 curves, correspond- 
ing to the Q/N of card 12 (i.e., values of AH/N ). Repeat this 
card as many times as necessary. Start with the first field of 
the card for each curve. 

YP (1, 1, 1) - first point, curve 1. 

YP (1, 1, 2) - second point, curve 1. 
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Card 13 (cont.) 


Col. 1-10 
11-21 


Card 14 
Col. 1-3 
4-6 
7-8 
9-80 

Card 15 

Col. 1-10 
11-20 


Card 16 

Col. 1-10 
11-20 

Card 17 

Col. 1-10 
11-20 


1-10 

11-20 


YP (1, 2, 1) - first point, curve 2. 
YP (1, 2, 2) - second point, curve 2. 


Main pump efficiency curve identification card. 

L (2) - the number of suction-dependent, efficiency curves. 

K (6) - the number of "X" - "Y" pairs for each efficiency curve. 
Blank. 

Any identifying literal data. 

2 

Suction conditions (NPSH/N ) for each main pump efficiency curve 
in ascending order. A maximum of 10 curves can be used. 

ZP (2, 1) - first curve. 

ZP (2, 2) - second curve. 


Normalized flow rate (Q/N) points for the main pump efficiency 
curves. The same Q/N points serve as the abscissa for all effi- 
ciency curves. Repeat card as many times as necessary. 

XP (2, 1) - first Q/N point. 

XP (2, 2) - second Q/N point. 

Ordinates of the main pump efficiency curve corresponding to the 
Q/N points of card 16 (i.e., values of efficiency). Repeat this 
card as many times as necessary. Start with the first field of 
the card for each curve. 

YP (2, 1, 1) - first point, curve 1. 

YP (2, 1, 2) - second point, curve 1. 


YP (2, 2, 1) - first point, curve 2. 
YP (2, 2, 2) - second point, curve 2. 
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Card 18 


Col. 1-3 
4-6 
7-8 
9-80 

Card 19 
Col. 1-10 


Card 20 

Col. 1-10 
11-20 


Card 21 


Col. 1-10 
11-20 


1-10 

11-20 

Card 22 
Col. 1-3 
4-6 


Inducer normalized head rise curve identification card. 

L (3) - the number of suction-dependent, inducer head rise curves. 
K (7) - the number of "X" - "Y" pairs for each head rise curve. 
Blank. 

Any Identifying literal data. 

2 

Suction conditions (NPSH/N ) for each inducer head rise curve in 
ascending order. A maximum of 10 curves can be used. 

ZP (3, 1) - first curve. 

ZP (3, 2) - second curve. 


Normalized flow rate (Q/N) points for the inducer head rise curves. 
The same Q/N points are used for all head rise curves. Repeat card 
as many times as necessary. 

XP (3, 1) - first Q/N point. 

XP (3, 2) - second Q/N point. 


Ordinates of the inducer normalized head rise curves corresponding 
to the Q/N of card 20 (i.e., values of AH/n2) . Repeat this card 
as many times as necessary. Start with the first field of the 
card for each curve. 

YP (3, 1, 1) - first point, curve 1. 

YP (3, 1, 2) - second point, curve 1. 


YP (3, 2, 1) - first point, curve 2. 

YP (3, 2, 2) - second point, curve 2. 

Inducer efficiency curve identification card. 

L (4) - the number of suction-dependent, inducer head rise curves. 
K (8) - the number of "X" - "Y" pairs for each efficiency curve. 
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Card 22 (cont.) 


Col. 7-8 
9-80 

Card 23 
Col. 1-10 

Card 24 
Col. 1-10 


Card 25 


Col. 1-10 
11-20 


1-10 

11-20 


Blank. 

Any identifying literal data. 

Suction conditions (NPSH/N^) for each inducer efficiency curve in 
ascending order. A maximum of 10 curves can be used. 

ZP (4, 1) - first efficiency curve. 

ZP (4, 2) - second efficiency curve. 


Normalized flow rate (Q/N) points for the inducer efficiency curves. 
The same Q/N points are used for all efficiency curves. Repeat 
card as many times as necessary. 

XP (4, 1) - first Q/N point. 

XP (4, 2) - second Q/N point. 


Ordinates of the inducer efficiency curves corresponding to the 
Q/N points of card 24 (i.e., values of efficiency). Repeat this 
card as many times as necessary. Start with the first field of 
the card for each curve. 

YP (4, 1, 1) - first point, curve 1. 

YP (4, 1, 2) - second point, curve 1. 


YP (4, 2, 1) - first point, curve 2. 
YP (4, 2, 2) - second point, curve 2. 
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Card 26 


Col. 1-5 


6-10 


11-15 

16-20 

21-25 


Card 27 


Col. 1-10 
11-20 

21-30 

31-40 

41-50 

51-60 

61-70 


This is the first card of the particular case involving a set of 
specified operating conditions. The several program options are 
controlled by the control flags of this card. 

IFLAG - 1 if turbine inlet pressure is input as the independent 
parameter; 2 if main shaft speed is input as the independent 
parameter. 

JPRNT - this is the print interval for transient cases (i.e., 1 if 
output for every computed time point; 2 if output for every second 
computed time point; etc.). The first, second, and last time 
points always are printed regardless of the value of JPRNT. 

JFLAG - 1 if suction line waterhammer solution is to be used; 

2 if no waterhammer solution. 

KFLAG - 1 if steady-state point; 2 if transient case. 

JPLOT - 0 if no plots; 1 if all time points plotted; 2 if only 
printed time points are to be plotted. No plot subroutine is 
included with the program because plotting is an off-line opera- 
tion, which is unique to a particular computer facility. However, 
this program option can be utilized by replacing the dummy plot 
subprogram (PLOT) with a subprogram suited to the particular 
facility. 

This card contains the information pertinent to a certain set of 
operating conditions. 

TMINT - initial time for a transient case or 0.0 for a steady- 
state case. 

TMAX - final time for a transient case; 0.0 for a steady-state 
case if another case follows; and any number >0.0 for the final 
steady-state case. 

PTTEM - Estimated main turbine exhaust total pressure (for the 
initial time for a transient case) . This value will be modified 
to the correct value by the program through successive iterations. 

NIINT - estimated inducer shaft speed (for the initial time if a 
transient case) . 

QNM - main pump Q/N. 

TPII - temperature of the fluid at the inducer inlet. 

DTIME - computing time interval for transient cases if the water- 
hammer solution is not used. 


Card 28 Geometry parameters. 

Col. 1-10 D - Suction line diameter. 

11-20 XLINE - Suction line length. 

21-30 RM - Mean blade radius at main turbine. 
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Card 28 (cont.) 


Col. 31-40 RI - Mean blade radius of inducer turbine. 

41-50 IMA - Main rotating assembly polar moment of inertia. 
51-60 II - Inducer rotating assembly polar moment of inertia. 
61-70 AI - Inducer inlet flow area. 

71-30 AM - Main pump inlet flow area. 


Card 29 
Col. 1-10 
11-20 
21-30 


Geometry, continued. 

AME - Main pump discharge flow area. 

XLOSS - Turbine exhaust system loss coefficient. 
FRI - Suction line friction factor. 


Card 30 First card of the time dependent operating parameters. 

Col. 1-5 K (10) - Number of "X" - "Y" pairs of data used to describe the 

turbine inlet temperature as a function of time. 


Card 31 


Col. 1-10 
11-20 
21-30 
31-40 


relation. 
XT (6, 1) 
YT (6, 1) 
XT (6, 2) 
YT (6, 3) 


pairs of data for turbine inlet total temperature-time 
Repeat card as many times as necessary. 

- first time point. 

- first temperature. 

- second time point. 

- second temperature. 


Card 32 

Col. 1-5 K (11) - Number of "X" - "Y" pairs of data used to describe the 
turbine inlet total pressure as a function of time. 

Card 33 "X" - "Y" pairs of data for turbine inlet total pressure-time 


Col. 1-10 

relation. 
XT (7, 1) 

Repeat as many times as necessary 
- first time point. 

11-20 

YT (7, 1) 

- first pressure. 

21-30 

XT (7, 2) 

- second time point. 

31-40 

YT (7, 2) 

- second pressure. 
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Card 34 

Col. 1-5 K (12) - Number of "X" - "Y" pairs of data used to describe the 
main shaft speed as a function of time. At least one data pair 
must be input corresponding to the initial time point if option 
(IFLAG=1) is being used. This amounts to an initial estimate 
of main shaft speed and will be modified by the program. 

Card 35 "X" - "Y" pairs of data for main shaft speed-time relation. 

Repeat card as many times as necessary. 

Col. 1-10 XT (8, 1) - first time point. 

11-20 YT (8, 1) - first speed point. 

21-30 XT (8, 2) - second time point. 

31-40 YT (8, 2) - second speed point. 


Card 36 

Col. 1-5 K (13) - Number of "X" - "Y" pairs of data used to describe the 
tank pressure as a function of time. 


Card 37 "X" - "Y" pairs of data for the tank pressure-tiiAe relation- 

Repeat card as many times as necessary. 

Col. 1-10 XT (9, 1) - first time point. 

11-20 YT (9, 1) - first tank pressure point. 

21-30 XT (9, 2) - second time point. 

31-40 YT (9, 2) - second tank pressure point. 


Program Restrictions 


The tabulated data used to represent the turbopump character- 
istics must be interpolated for all operating points; therefore, it is 
necessary that the characteristic curves be extended to cover the range of 
operating points as well as all points reached in any intermediate iteration 
loops. No provision has been made for extending the tabulated data and any 
condition encountered which forces a search for data outside the confines of 
the table will result in a diagnostic message as well as termination of the 
case. 
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It is possible that cases involving extremely low speeds will 
not be executed because an insufficient number of significant digits are 
available to close some of the necessary iteration loops. 

This program is restricted to use with hydrogen as the turbine 
drive gas and pumped fluid unless the fluid properties subprograms are replaced 
with ones suited for another fluid. Also, the range of operation is restricted 
to that covered by the properties subprograms. 

D. COMPUTER PROGRAM VERIFICATION AND REFINEMENT 
1 . Verification 


Verification of the analytical model used to predict the 
operating characteristics of twin-spool turbopumps was demonstrated by comparing 
analytical results with the test data obtained during twin-spool testing in 
hydrogen . 


The capability of the computer program to predict transient 
performance which is typical of that experienced during engine start transients 
is of primary Interest. Therefore, a comparison between analytically determined 
performance and actual test performance is made here for two typical engine 
start ramps of six seconds and three seconds, respectively. 

The characteristic curves used in the computer analyses are 
shown on Figures No. 125 through No. 130. These curves were derived from the 
test data obtained during the twin-spool test series. The turbine character- 
istic curves (Figures No. 125 through No. 128) are based upon the best-fit of 
the test data and should not be confused with the prediction curves shown else- 
where in this report. The inducer and pump efficiency curves deviate from the 
raw test data Inasmuch as an inducer stator discharge temperature correction 
was made. The ramifications of this correction were discussed earlier in the 
pump and Inducer sections. 

Several of the more important parameters associated with the 
twin-spool turbopump operation during the 6 sec ramp of Test No. -003 are shown 
on Figures No. 131 through No. 136 along with analytical results for the same 
parameters using the computer model. The computer analytical results are based 
upon the time-dependent test data (tank pressure, turbine inlet total temperature, 
and turbine inlet total pressure) shown on Figure No. 131. 

The main shaft speed for the 6 sec transient analysis shown 
on Figure No. 132 is higher than it actually was during the initial phase of the 
transient. This is at least partially attributable to the turbine inlet pressure 
indication resulting from the bearing coolant flow through the turbine prior to 
start-up. 

The initial deviation in pump pressure rise (see Figure No. 133) 
is directly related to the difference between the analytically determined speed 
and the test speed discussed above. The computer model was based upon the assumption 
that normalized pump flow be maintained at a constant value during transient 
operation. Any drift from a constant value during testing results in some 
deviation between the analytical and actual test results. 
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Figure 126. - Computer Model Characteristic Curve 
Main Turbine Total Efficiency. 














Figure 128. Refined Characteristic Curve, Inducer Turbine Static Efficiency 




Figure 129. Refined Characteristic Curve, Inducer Turbine and Normalized 
Head Rise 
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Figure 131. - Two-Spool Turbopump Performance, Time-Dependent 
Input Parameters, Test No. -003. 
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Figure 132. - Two-Spool Turbopump Performance, Pump Predicted 
Speed vs Pump Actual Speed, Test No. -003. 
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Figure 133. - Two-Spool Turbopump Performance, Pump Predicted Pressure 
Rise vs Pump Actual Pressure Rise, Test No. -003. 
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Figure 134. - Two-Spool Turbopump Performance, Pump Predicted Flow 
Rate vs Pump Actual Flow Rate, Test No. -003. 
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Figure 135. - Two-Spool Turbopump Performance, Inducer Predicted 
Speed vs Inducer Actual Speed, Test No. -003. 
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Figure 136. - Two-Spool Turbopump Performance, Inducer Predicted 
Pressure Rise vs Inducer Actual Pressure Rise, 

Test No. -003. 





There is a slight difference between the pump flow rate 
determined analytically and the test results near the end of the transient 
shown on Figure No. 134. Again, this is a result of the drift in the normalized 
pump flow. 


The Inducer speed for the 6 sec ramp is plotted on Figure No. 

135. Indications are that the higher acceleration rate experienced during the 
test is the result of an inability to accurately obtain the polar moment of 
inertia for the inducer rotating assembly because of the inducer vanes. A 
slightly lower value than that used in the analysis would yield results more 
nearly in agreement with the test results. 

It is believed that the erratic nature of the inducer pressure 
rise (see Figure No. 136) obtained from the test data was the result of instrumenta- 
tion and vibration influences. An accurate comparison between analytical and 
test results for this parameter was not possible. 

Similar analytical results and test data for the 3 sec 
transient test (-004) are provided on Figures No. 137 through No. 142. 

The digital data from the 6 sec analysis is included in 
Appendix B as part of the example. 

2 . Refinements 


The following minor refinements were made to the original 
computer model (Ref. 18) as a result of program usage experience and test data 
evaluation: 


a. It was found that the numerical root finding technique 
used to initiate main turbine pressure ratio was unstable 
in certain cases. Therefore, this program segment was 
replaced by a more stable method. 

b. The assumption that the time-dependent input data, turbine 
inlet pressure or main shaft speed, depending upon the 
option being exercised, and turbine inlet temperature could 
be represented by second order polynomials in time proved 
inadequate because of the erratic nature of this data. 

The problem was solved by using tabulated data as a function 
of time to represent these parameters with linear inter- 
polation between tabulated points. 

c. The characteristic curves used to represent the turbopump 
components were corrected upon the basis of test data. 
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Figure 137. - Two-Spool Turbopump Performance, Time-Dependent 
Input Parameters, Ntest No. -004. 




































































































































































































































































































































































E. CONCLUSIONS 

The turbopump testing verification of the computer model indicates 
that, at least for the type of unit tested, the model is quite adequate for 
predicting transient and steady-state operating conditions providing the 
following information is available: 

1. Reasonably good characteristic curves for the inducer, 
pump, and turbines. 

2. Accurate values for the rotating assembly polar moment 
of inertias. 

3. Good representation of engine start ramp. 
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VIII. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 

In addition to the specific conclusions relating to individual 
aspects of the program that are included as part of the test, the following 
over-all conclusions are pertinent. 

1. The twin-spool turbopump exhibits an essentially non-cavitating 
performance both in pressure rise and flow range, while operating at zero NPSP 
and with moderate (to 30% by volume) vapor ingestion. 

2. The flow coefficient range for low or essentially no system 
head loss at a zero tank NPSP exceeded the design requirements. 

3. Based upon the transient, start ramp response, the concept is 
applicable to either chemical or nuclear engine starting requirements. 

4. There is no problem connected with the sensitivity of the 
inducer stage to reasonable variations in the turbine exhaust system area. 

5. Twin-spool turbopump performance can be predicted and is a 
function of the accuracy of the predicted pump and turbine characteristics. 

6. The accumulated running time (45 min at full speed and over 
60 min total) demonstrates the basic mechanical concept to be a workable 
arrangement . 


7. The Q/N range of the inducer is narrower than found in most 
boost pump concepts as a result of the power being extracted from the turbine 
drive gas (i.e., as main pump flow and power rise, the inducer sees almost the 
same percentage of increase in power) . This allows the inducer to operate more 
closely to its best operating point for both efficiency and cavitation 
performance. 


8. The twin-spool concept exhibited good hydraulic characteristics 
in both steady-state and transient applications. Based upon the results 
obtained to date, this system appears to be one of the more promising alternatives 
for two-phase hydrogen pumping. 

B. RECOMMENDATIONS FOR FUTURE WORK 

1. It is recommended that consideration be given to testing the 
twin-spool system with a hot gas turbine drive to permit its evaluation at 
conditions which more closely simulate an actual engine application. 

2. If the twin-spool system were selected for an engine applica- 
tion it is recommended that start transients which simulate the relatively 
fast starter of gas generator (bleed cycle) chemical engines be investigated. 
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3. The inducer system exhibits a better two-phase pumping 
capability than predicted by the design; therefore, it is recommended that 
consideration be given to extending the experimental data to the lower hydro- 
gen inlet temperatures (down to or including slush conditions) . 

4. It is recommended that the twin-spool concept be evaluated 
for cryogenic applications in both nuclear and chemical rocket systems where 
relatively short system chilldown times are desired. This effort probably 
would Involve an analytical study followed by an experimental verification. 
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COMPUTER PROGRAM LISTING 
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or^on r^r^f^n o r-> o non 


APPENDIX A 


C*#** m£S1 uF Thfc LCGIC AtiU DETAlLtC PUMP AND TURBINE CALCULATIONS ARE MAIN 
C«*«« CARRIEC OUT IN THE MAIN PROGRAM MAIN 

C MAIN 

REAL NM*NI«NlINTf MFIim. IMA. 1 1 .NMINT*NFSP I .NPbHI .NPSNI .NPSPM.NPSHM.MAIN 
INFSNF MAIN 

CIRE^SILN SHPPIOOIfPRMI 30i.liTMi3Q},kTl(3Q} fShPTIOO) » MAIN 

lPl(2i .P2I2I .m1(2) .0ATA1I75I. MAIN 

2N2I2J ,SFP( 2C),CALC1(7S,50J,CALC2M2.£C) MAIN 

CIMENSICN T(2S.30}.SV125»30J .HI 25 .301 .S 1 2 5 « 30 } » NUMI 25 i . SSLI 141. MAIN 
ITSL (Hi.P(25i.AA(5*90).RHQXl9CI.Bf9f8 J.KI 13I.LI4) ,XT(S.301. MAIN 

2YT(9 .30 tXP(A.3Q ) .¥P( 4. 10. 30 1 *2P { 4. 10 t . SONIC I 25 » 30) MAIN 

CCMMCN IFLAG. JFLAG.KFLAG.JPRNT. JPLOT.TMINT.TMAX.XLINE.NIINT.FRI . MAIN 
IXLCSS.RM.HI.IFA. I l.TP I 1 . A1 . AM. AME .0.0 T IME .NFL AG MAIN 

EQUIVALENCE (T IME . OATAII U ) . (PSLI , CA TAl ( 2) ) * I P 1 1 .DAT A1 1 3 ) ) . MAIN 

1(Z2 2 2»LATAHA) ),I SVil.DATAK 5)).IkSLI .OATAK 6) I . (Ul I .0ATA1(7)) « MAIN 
2(kiI*CATAl(8)) .(PTil.DATAl(9) I.INI .OATAU 1C) ) > (QM .OATAUll) ) . MAIN 

3(CPI»CATA1( 12) ) . (PT IE. DATA II 13)) .(PIE, CAT All 14) ) . (OHN I . DA TAl ( 16 ) ) .MAIN 
3(UhI,LATAl(15)), MAIN 

4(NPSf i.CATAK 17) ) .(NPSHI .OATAK 18)) .INPSM.DATAK 19) ) . MAIN 

5iEATFl.CATAK20)) .(SHP IF. 0ATAK21)) .(TORPI ,0ATA1(22) ). MAIN 

6(PMI,LATA1{23)),(PTMI,DATA1(24)),(TPMI,CATA1(25)) .( SVMI .OATAl (26) )MAIN 
7,(QMI,CATA1(27)) ,(WP,0ATA1(28)),(NM,CATA1(2S) ), (QNM,DATA1(30)). MAIN 
8(CPM.CATAK21) ),( PTME , OATAl ( 32 ) J . (PME .OAT A1 ( 33) ), (OHM .DAT A1 ( 34) ) . MAIN 
SIOhKM.CATAlOS)) , (NPSPM. DATA 1 1 36 ) ) . « NFSHM ,DA TAl ( 3 7 ) ) MAIN 

EQUIVALENCE ( NPSNM, OAT Al ( 38 ) ) , ( EATPM .DATA 1( 39 ) ) ,( SHPPM, OATAl (40 ) ) .MAIN 
1(TCRPM,CATA1(41)) ,(PTTH,0ATA1(42)) .( TTII .OATAl (43) ) . MAIN 

2(PTEi .CATAK44) ),(PR1,DATA1(45) ) . I WT I F ,CA TA 1 ( 46 ) ) , ( FP I . DA TAl ( 47 ) ) .MAIN 
3(DFT1,£ATA1(48) ) . (CUi , OATAK 49) ) , (UCG I . CA TA 1 ( 50 ) ) , ( E ATT I , CATAl ( 51 ) MAIN 
4) ,(SEFTF,CATA1(52 )),( TURTI,DATAK53)) ,IPTTIM,DATAK54)) . MAIN 

5( TTIF.CATAK55) ). (PTTEM.0ATAK56) ) , ( PRMF . DATA K 57 ) ) , ( kTMF .OATAl ( 58MAIN 


6) ) , (FPM,CATA1(59) ) . ( DhTM. OATAK 60 ) ) , I CO M .DA TAK 61 ) ) , 
7(DCCM,£ATA1(62 ) ) ,( EATTM.DAT A 1(63 )). ( SFPTM .OATAl (64) ) , 
8CTCRTM.CATAK65) ) 

**** CALL FILE TC READ IN HYDROGEN PROPERTIES DATA 

CALL FILE (T.SV.F.S. SONIC. NDM. SSL, TSL.P.AA.RHGX.B) 


**** 


5C 


INITIALIZE NCT*C,NCT 
FACE IS PRINTED 


NCT = C 
GC TC 52 
IF (NFLAG) 


IS THE COUNTER FCR PRINT ING, kHEN NCT»50,A 


,53,52 


**** NFLAOO.LAST CASE 
51 STCF 


MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 

042 

043 

044 

045 

046 

047 

048 


NFLAC.O.NEXT CASE REQUIRES NEk CHARACTERISTIC CURVES 
**** CALL INTAE TC READ IN CHARACTERISTIC CURVES 

52 CALL INTAE UM , ID , lY, K. L, XT , YT , XP ,YP , ZP ) 

**** NFLAC=0,NEXT CASE REQUIRES CASE DATA CNLY 
*♦♦♦ CALL INPUT TC READ CASE DATA 

53 CALL INPUT ( XT . YT ,K .QNM, PATH .IM.IO.IY) 
CT«2.*32.174*778.16 


MAIN 049 
MAIN 050 
MAIN 051 
MAIN 052 
MAIN 053 
MAIN 054 
MAIN 055 
MAIN 056 
MAIN 057 
MAIN 058 
MAIN 059 


261 



APPENDIX A 


c 



MAIN 

060 

Q*4** 

CCMPUE StCTKN LINE CONSTANT 


MAIN 

061 

C 



MAIN 

062 


R=f FI♦XLI^E/I2•♦^2•174♦LI 


MAIN 

063 

c 



MAIN 

064 


CALL TABIN TC INITIALIZE TURBINE INLET TENPERATORE 


MAIN 

065 

c 



MAIN 

066 


CALL TAEIN ( TR IM 1 6 ,K , XT. YT, 11 IN, J , PA PMX , PARRN) 


MAIN 

067 


ITAB=12 


MAIN 

068 


FARl=TMINT 


MAIN 

069 


IF (d-1) 55,55,650 


MAIN 

070 

55 

GO TC 160,66), IFLAG 


MAIN 

071 

C 



MAIN 

072 


iFLAG=l,TLRElNE INLET PRESSURE INPUT CASE 


MAIN 

073 

c 



MAIN 

074 

60 

CALL TA8IN ( TR INT , 7,K, AT , Y T , PT TI R , J , P ARRX ,PARMN ) 


MAIN 

075 


ITA8=13 


MAIN 

076 


FARI=TRINT 


MAIN 

077 


IF (d-U 65,65,850 


MAIN 

078 

65 

GARW*GAWRA(TT IR.PTTIMJ 


MAIN 

079 


CFR=CP(TTIR,P1TIR) 


MAIN 

08G 


GC TC 68 


MAIN 

081 

C 



MAIN 

082 

c ■♦*** 

iflac=2,main shaft speeu input case, initialize garm and CFM 

AT 

MAIN 

033 

c 

100 FSIA 


MAIN 

084 

c 



MAIN 

085 

66 

GARR=LARRA(TTIW,1Q0.J 


MAIN 

086 


CFR=CF(TT1R,100.) 


MAIN 

087 

C 



MAIN 

088 


call IA8IN TL INITIALIZE MAIN SHAFT SPEED 


MAIN 

089 

C 



MAIN 

090 

68 

CALL TAEIN ( IM NT , 8,K ,XT , YT , NR , d, PARRA, PARMN J 


MAIN 

091 


ITA6=1A 


MAIN 

092 


PARl=TMINT 


MAIN 

093 


IF ld-1) 70,7C,850 


MAIN 

094 

C 



MAIN 

095 


SET URE=INITIAL TIME.TMINT 


MAIN 

096 

c 



MAIN 

097 

70 

TIRE=1RINT 


MAIN 

098 

C 



MAIN 

099 

C4444 

SET INLUCER SP£E=IN1T1AL ESTIMATE NIINT 


MAIN 

100 

c 



MAIN 

101 


M = N I INT 


MAIN 

l'?2 

c 



MAIN 

103 

c**4* 

SET TIME FCINT CCUNTER,dT=l 


MAIN 

104 

c 



MAIN 

105 


dT=l 


MAIN 

106 

c 



MAIN 

107 

c 

SET PRINT INTERVAL COUNTER, JP=0 


MAIN 

108 

c 



MAIN 

109 


dP=C 


MAIN 

110 

c 



MAIN 

111 

Q4444 

SET INITIAL GUESS OF TURBINE EXHAUST 1EMPEKATLRE=C, 75 INLET 

TEMP. 

MAIN 

112 

C 



MAIN 

113 


TTEG=C.75*TTIR 


MAIN 

114 


IPR = 1 


MAIN 

115 


dFH=l 


MAIN 

116 


1ERAN=0 


MAIN 

117 

c 



MAIN 

118 

(,4444 

CALL TABIN TC INITIALIZE TANK PRESSURE 


MAIN 

119 
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c 



MAIN 

120 


CALL TAB1^ (1MIKTt9tK,AT.YT»PTK.J,PARf>XfPARMN) 


MAIN 

121 


iTAB=ia 


MAIN 

122 


PAR1*TPIM 


MAIN 

123 


IF lJ-1) 75,75,650 


MAIN 

124 

c 



MAIN 

125 


SET /lL SCCTICN LINE: PRESSURES INITIALLY EUUAL TC TANK PRESSURE 

MAIN 

126 

c 



MAIN 

127 

75 

Fim = PTK 


MAIN 

128 


PSLI=PTK 


MAIN 

129 


F1(2)=PTK 


MAIN 

130 


P2m = PTK 


MAIN 

131 


FII=fTK 


MAIN 

132 

c 



MAIN 

133 

c 

SET KAIN PURP INLET TEMPERATURE AND PRESSURE INITIALLY EwUAL 

TO 

MAIN 

134 


INLUCER INLEl CCNOITICNS 


MAIN 

135 

c - 



MAIN 

136 


TFP I*TPII 


MAIN 

137 


FRI=FTK 


MAIN 

138 


Zi.ZZ=IPII 


MAIN 

139 


MCT = C 


MAIN 

140 


IPAG£*6 


MAIN 

l4l 


IPS = C 


MAIN 

142 


GL TC 110 


MAIN 

143 

c 



MAIN 

144 


RETUFN POINT FOR SUCCESSIVE TIME PCIMS OF TRANSIENT CASES 


MAIN 

145 

c 



MAIN 

146 

£C 

GO TC (85,95), JFLAG 


MAIN 

147 

C 



MAIN 

148 

c**** 

JFLAC=1,WATERFARMER SOLUTION INCLUDED ,OET ERM INE SUCTION LINE 

SUNICMAIN 

149 


VELOCITY 


MAIN 

150 

c 



MAIN 

151 

65 

CALL FPRCF ( F 1 1 , TPI I . SUN I C , T , 1 . 5 ,NUM , P ,B , SOV , J , PARMN , PARMX) 


MAIN 

152 


IhPR=l 


MAIN 

153 


FAR1=FII 


MAIN 

154 


FAR2=TPII 


MAIN 

155 


If (J-1) ec,£6,£65 


MAIN 

156 

C 



MAIN 

157 

c**** 

CLPPLTE TINE INCREMENT 


MAIN 

158 

c 



MAIN 

159 

£6 

OTIN£=XLINE/SCV 


MAIN 

160 

C 



MAIN 

161 


SET INITIAL SUCTICN LINE CONCITICNS ECUAL TO FINAL SUCTION LINE 

MAIN 

162 

(,**** 

CONCITICNS FROM PREVIOUS TIME POINT 


MAIN 

163 

c 



MAIN 

164 


K2(l J = hP 


MAIN 

165 


P2(1)«PII 


MAIN 

166 


Kl(])=liil(2) 


MAIN 

167 

c 



MAIN 

168 

Q44** 

CONFUTE NEK TIME 


MAIN 

169 

C 



MAIN 

170 

95 

TIME=TIME4CTINE 


MAIN 

171 

C 



MAIN 

172 

C44** 

SET INCUCER SPEEC EQUAL TO NEK INDUCER SPEED COMPUTED FROM ACCEL. 

MAIN 

173 

Q4*** 

RELATION 


MAIN 

174 

C 



MAIN 

175 


NI=NIINT 


MAIN 

176 

C 



MAIN 

177 

Q4**’t 

INCREMENT PRINT AND TIME POINT COUNTERS 


MAIN 

178 
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MAIN 

179 


JP» JP*l 

MAIN 

180 


JT*JU1 

MAIN 

181 


JPR»2 

MAIN 

182 


IPR«2 

MAIN 

183 

c 


MAIN 

184 

c**** 

C4LL TABUS FCP NEW TANK PRESStRE 

MAIN 

185 

c 


MAIN 

186 


CALL TABIK (T IME t9 >K. XT . YT * PTK t J> PARMXt PARMN) 

MAIN 

107 


ITAB*19 

MAIN 

138 


PAR1=T1RE 

MAIN 

189 


IF iJ-lJ 99,99,850 

MAIN 

190 

c 


MAIN 

191 


CALL TAEIN FLB NEK TURBINE INLET lERPERATLRE 

MAIN 

192 

c 


MAIN 

193 

99 

CALL TABIN ( T IRE , 6,K, XT , YT , T T IN, J ,PA8PX ,PARRN 1 

MAIN 

194 


ITA8»15 

MAIN 

195 


PAR1*1IRE 

MAIN 

196 


IF (J-n 101,101,650 

MAIN 

197 

ICl 

CC TC 1105,106) .IFLAii 

MAIN 

198 

C 


MAIN 

199 

c*«*4 

IFLAG*!, TURBINE INLET PRESSURE CASE 

MAIN 

200 

c 


MAIN 

201 

105 

CALL TABIN (T IME , 7,K, XT , YT , PTTI M, J, PARMX , PARMN) 

MAIN 

202 


ITAE=16 

MAIN 

203 


PAR1=TIME 

MAIN 

204 


If Ij-1) 1C7,1C7,850 

MAIN 

205 

C 


MAIN 

206 


CCRPLTE GAMM FOR NEK TURBINE INLET CCNOITIONS 

MAIN 

207 

c 


MAIN 

208 

1C7 

GARR=CARRA( 1TI«,PTTIM) 

MAIN 

209 

C 


MAIN 

210 

(. 4**4 

CCMPLTE CPM FCR NEK TURBINE INLET CCNOITIONS 

MAIN 

211 

c 


MAIN 

212 


CFW=CPITTIP,PTTIM| 

MAIN 

213 

c 


MAIN 

214 

( 44*4 

SET FAIN SHAFT SPEEU EQUAL NEK SPEED COMPUTED FROM ACCEL# 

RELATIONMAIN 

215 

c 


MAIN 

216 


NM*NF INT 

MAIN 

217 


Gu TC no 

MAIN 

218 

c 


MAIN 

219 

( 44*4 

iFLAC*2,MAIN SHAFT SPEED INPUT CASE, SAVE MAIN SHAFT SPEED 

FROM MAIN 

220 

( 4*44 

FREVICUS TIME PUNT 

MAIN 

221 

C 


MAIN 

222 

106 

NMINT=NM 

MAIN 

223 

c 


MAIN 

224 


CALL TABIN FCR NEK MAIN SHAFT SPEED 

MAIN 

225 

c 


MAIN 

226 


CALL TABIN ( T IME , 8,K, XT ,YT ,NM, J ,PARMX ,PAR MN ) 

MAIN 

227 


ITAfi»l7 

MAIN 

228 


FARlsTIME 

MAIN 

229 


IF (J-1) 110,110,850 

MAIN 

230 

c 


MAIN 

231 

( 4**4 

ITEP2 IS THE MAIN SHAFT SPEEC CORRECTICN LOOP ITERATION COUNTER MAIN 

232 

c 


MAIN 

233 

110 

1TER2»C 

MAIN 

234 

c 


MAIN 

235 

(4444 

ITEP6 IS THE MAIN TURBINE PRESSURE RATIC CORRECTICN LCOP 

ITEhATIONMAIN 

236 

(4444 

COUNTER 

MAIN 

237 

( 


MAIN 

238 

26i|. 






c 

c**** 

c 


112 

C 

c ♦ ♦♦♦ 
c 

c 

c 

c 

c 

113 

C 

Q44** 

C 

c 

c**** 

c 

c 

C*44* 

Q4*** 

C 

111 

c 

i.44** 

C 

115 


C 

c*=**>> 

c 

12C 

C 

Q4444 

c 

c 

c 

c 

c 
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lTERfc=l HAIN 

MAIN 

SAVE MAIN TUREINE PRESSURE RATIO FRCM PREVIOUS TIME POINT MAIN 

MAIN 

PRMn = PPPf MAIN 

IP (JI-ll 113,113,112 MAIN 

F1(1)=PSLI MAIN 

MAIN 

COMPOTE SUCTION CINE INOET STATIC PRESSURE MAIN 

MAIN 

PS0I = FTK-(RS0I/A1 ) ♦♦2*l‘t4« + SV 1 1/ 2 ./32 .17A MAIN 

MAIN 

COMPOTE INOUCER INOET PRESSURE MAIN 

MAIN 

PU = FSU-C.000174954»FRI*XOINE*SV1I*RP**2/0**5 MAIN 

MAIN 

llER^ IS THE INOUCER SHAFT SPEED CORRECTION OCUP ITERATION COUNTEKMAIN 

MAIN 

lTtRA=l MAIN 

MAIN 

CETEFMINE VAFOR PRESSURE AT THE INOUCER INLET MAIN 

MAIN 

PVPI i = VFFOMTPI 1 1 MAIN 

MAIN 

COMPARE INOUCER INLET PRESSURE hITH INDUCER INLET VAPOR PRESSURE MAIN 

MAIN 

IF (PlI-FVFIll 111,111,115 MAIN 

MAIN 

INDUCER INLET PRESSURE IS LESS THAN CR EUOAL TO VAPCR PRESSURE, MAIN 
USE SATURATEC OltUlD SPECIFIC VOLUME MAIN 

MAIN 

SVIi=SVSO (TP II ,e ) MAIN 

GO TO 120 MAIN 

MAIN 

CALL hPfiOP FOR INDUCER INlET SPECIFIC VOOCME MAIN 

MAIN 

CALL HPRCP (PII,TPII,SV.T,1.2,NUM,P,B,SVII,J,PARMN,PARMX1 MAIN 

1HPR=2 MAIN 

FAR1*PII MAIN 

PAR2=TPiI MAIN 

IF (J-li 120,120,865 MAIN 

MAIN 

RETCPN POINT FCR MAIN SHAFT SPEED CCRRECIIGN OOCP , INCREMENT MAIN 

ITERATION COUNTER MAIN 

MAIN 

I T E R 2 = I T ER 2 1 MAIN 

MAIN 

CCMFUTE MAIN PUMP INOET VUOUMETRIC FOCW RATE MAIN 

MAIN 

CMI=tNM*NM MAIN 

MAIN 

COMPOTE MAIN TURBINE MEAN BLADE SPEED MAIN 

MAIN 

UM*2.*2.1A159*NR*RM/12,/60. MAIN 

MAIN 

ITERl IS THE PUMP INLET PRESSURE CORRECTION LOOP ITERATION CUUNTERMAIN 

MAIN 

1TEB1=0 MAIN 

IT£R1=ITERI+1 MAIN 
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ZAO 

2Al 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 
267 
263 

269 

270 

271 

272 

273 
27A 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 
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287 

288 

289 

290 

291 

292 
29 3 

294 

295 

296 

297 
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c 



MAIN 

298 

c**** 

PLHP INLET VAPOR PRESSURE 


MAIN 

299 

c 



MAIN 

300 


PVFPI-VPFLMTPPII 


MAIN 

301 

c 



MAIN 

302 

c**** 

CCNP4RE PLPP INLET PRESSURE bITH VAPOR PRESSURE 


MAIN 

303 

c 



MAIN 

304 


IP (fM-PVFPIJ 121tI21.122 


MAIN 

305 

c 



MAIN 

306 


PURP INLET PRESSURE IS LESS THAN OR EQUAL TO VAPOR PRESSURE, 


MAIN 

307 


LSE S4TUR4TEC LIQUIU SPECIFIC VOLUME 


MAIN 

308 

c 



MAIN 

309 

121 

SVPl»SVSL(TfPI,e) 


MAIN 

310 


GC TL 123 


MAIN 

311 

c 



MAIN 

312 


PUMP INLET PRESSURE IS GREATER THAN VAPOR PRE SSURE,CA LL HPRCP 

FOR 

MAIN 

313 


PUMP INLET SPECIFIC VOLUME 


MAIN 

314 

C 



MAIN 

315 

122 

CALL HPROP (PMI,TPMI,SV,T.l,2fNUMtP,B,SVMI, J,PARMN,PARMX) 


MAIN 

316 


IFPR«3 


MAIN 

317 


PAR1=PMI 


MAIN 

318 


FAR2*IPI1 


MAIN 

319 


IF ( J-1 ) 122,123,865 


MAIN 

320 

C 



MAIN 

321 

Q4*** 

CCMFLIE PUMP bEIGHT FLOW RATE 


MAIN 

322 

C 



MAIN 

323 

123 

bP=QM/(SVMI«60«b 7.48061 


MAIN 

324 


bSL I = i»P 


MAIN 

325 

C 



MAIN 

326 

C*444 

TEST FOR FIRST TIME POINT 


MAIN 

327 

C 



MAIN 

328 


IF lJT-1) 124 ,124,131 


MAIN 

329 

c 



MAIN 

330 


IF FIRST TIME PCiNT AND FIRST PASS, IP5»C, RE TURN TO STATEMENT 

112 

MAIN 

331 

c*««* 

rITF SUCTICN line flow rate TC COMPUTE SUCTION LINE PRESSURE 


MAIN 

332 

c 



MAIN 

333 

124 

IF UPS) 128,127,128 


MAIN 

334 

127 

IPS = 1 


MAIN 

335 


GC TC 112 


MAIN 

336 

C 



MAIN 

337 

C444* 

CONVERGENCE TEST FOR SUCTION LINE INLET PRESSURE 


MAIN 

338 

C 



MAIN 

339 

128 

IF (ABSU.-PSLI/PKin-O.OOli 131,131,112 


MAIN 

340 

121 

P1U)=PSLI 


MAIN 

341 

C 



MAIN 

342 

(.4444 

SET INCUCER bEIGFT FLOb RATE EUUAL PUMP bEIGHT FLOW RATE 


MAIN 

343 

C 



MAIN 

344 


hI*bP 


MAIN 

345 


GO TC ( 126,136),UFLAG 


MAIN 

346 

C 



MAIN 

347 

(4444 

JFLAG-l,bATERhAMMER SOLUTICN USEO,ChECK FIRST TIME POINT 


MAIN 

348 

C 



MAIN 

349 

128 

IF UT-l) 1-C, 130,135 


MAIN 

350 

c 



MAIN 

351 

(4444 

JT = 1, FIRST TIME PCINT, SAVE bP IN bU2) FCR bATERHAMMER SOLUTION 

MAIN 

352 

C 



MAIN 

353 

13C 

bl(2)=°bP 


MAIN 

354 


GC TC 136 


MAIN 

355 

c 



MAIN 

356 

(4444 

JT IS GREATER THAN 1,SET SUCTION LINE DISCHARGE FLOW RATE EQUAL 

MAIN 

357 
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€**♦♦ PUMP PLCta R^TE 
C 

135 l*2{2)=RP 
Plt21»PSLI 

C 

CALL INLET PCR SLCTIUN LINE hATERHAMMER SCLUTICN,THE FINITE 
C**** DIFFERENCE SCLUTICN 13 FOR A GIVEN LINE INLET PRESSURE AND 
C'*'**^ CISCEARCE FLCN RATE WITH INLET FLOW RATE AND DISCHARGE PRESSURE 
C4*** GIVEN EY TFE SOLUTION 
C 

CALL INLET ( DT IME tWl. W2 « Pl« P2 . SC V f SV 1 1 1 A I «R ) 

«SLI=WII2) 
f II = f2(2) 

CLMFLIE INCLCER INLET VOLUMETRIC FLOW RATE 

136 CU=NP^SV Il=ttC.*7.A806 

44>t* CCMPLTE INDUCER INLET TOTAL PRESSURE 

FIII=PiI*(WP/Aii**2*14A.*SVII/2./22,174 
44*4 CCMPLTE INCLCER NET POSITIVE SUCTION PRESSURE 
NPSPJ = PTI I-PVPI I 

**** CCMPLTE INCLCER NET POSITIVE SUCTION HEAD 
NPShl = lA4.'*NPSPI>tSVIi 

**** CCMPLTE INCLCER NCRMALI2ED SUCTION HEAD 
NPSNi=NPShI/NI**2 

4*4* CALL SFPIN FCR INDUCER SPEED PuwER TABLE GENERATION 

CALL ShPIN (Wf ,UIfNPSNI,K,L.2P,XP,YP,XT, YT) 

GO TC 1A5 

RETURN POINT FCR INDUCER SPEEC CORRECTION LOOP , I NCRtM ENT COUNTER 
14C IT£R4 = ITER^-*1 

44*4 RESET MAIN TURBINE PRESSURE RATIO 
FRMIl J = PRM{ ITER6I 

reset main SFAFT SPEED ITERATION COUNTER 

ITER2=l 
JPR = 2 

*4*4 RESET MAIN TUREINE PRESSURE RATIO ITERATION COUNTER 
ITER6«1 

*4*4 COMPUTE INCLCER NORMALIZED FLCW RATE 
145 CNI = UI/M 
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C 

C**** CO*PlTE INDUCER TURBINE MEAN BLADE SPEED 

C 

U1-2«>*3.141SS*N1<»R1/12«/6Q« 

ITAE»7 

C 

C*«** CALL TABP FCR INDUCER NORMAL 12E0 MEAD RISE 

C 

CALL TABP iKPSMtQNI«i.K*LtZPtXP»YP«ChNlf JtPARMNtPARNX) 
PAR1>CN1 

If (J-2I ISC.EECtlSi 

150 ITABsfi 
C 

C444* CALL TABP fCR INDUCER EFFICIENCY 
C 

CALL TABP (NPSM»QNI.4.K.L«ZP.XPfYP«EATPI »JtPARMN,PARPX) 
PARl*CNI 

IF U-ll lfS,l55,860 
C 

C44** inducer NLRPALIZEC FLUm rate is greater TFAN NAXIMUM TABULATED 
C«««« VALUEtSET READ RISE EUUAL ZERO AND EFF* EOUAL I. 

C 

151 ChNl«C.O 
£ATPI»1. 

C 

C44*4 CCMPLTE INDUCER READ RISE 
C 

155 CRI«CHNI>*M**2 
C 

C***+ CCPPLTE INDUCER PRESSURE RISE 

C 

CPI»CRI/( lAA,*SVin 

C 

C4*** CCMPLTE INCUCER PCNER 

C 

SRPFIIITERA)-WP*CHI/550./£ATPI 

C 

C4*** CCMPLTE INCUCER TORQUE 

C 

TCRPI=SHPFIUTERAI<3300Q./(2**3,l4l5S*Nn 

C 

C**** CCMPLTE PUMP INLET TOTAL PRESSURE 
C 

PTMI=FTII*DFI 

C 

C**4* SET INDUCER DISCRARGE TOTAL PRESSURE EQUAL PUMP INLET TOTAL 
C^«** PRESSURE 
C 

PTIE*PTMI 

C 

C4**4 SAVE FUMP INLET PRESSURE FUR SUCCESSIVE ITERATIONS 
C 

PMIF»FMI 

C 

C4444 COMPUTE PUMP INLET STATIC PRESSURE 
C 

P«I*FTMI-(RP/A«|A*2*l44.*SVMI/2./32*l74 

C 

C#<** SET INCUCER DISCRARGE STATIC PRESSURE EQUAL PUMP INLET STATIC 

C44** pressure 
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C 

PIE»fMi 

if ( jT-lJ15fc,15^f 156 
C 

C**** CCNV£«GENC£ TEST FUR PUMP INLET PRESSURE f FI RST TIME FLINT ONLY 
154 IF IAeS(l.-FMI/PMIF)-.OOU 156,156,125 
**** CCMPLTE M/lIN PUMP NET POSITIVE SUCTIGK PRESSURE 
156 NPSPP=PTMI-PVFM1 

**** CLMPLTE M^IN PUMP NET POSITIVE SUCTION FEAO 
NPSHP»144.'»NPSPP*SVMI 

**** CCMPLTE MiilN PUMP NORMALIZED SUCTION FEAD 

NPSNP=NPSFM/NM*»2 
IPS = C 
ITA8=5 

**** CALL TA8P FCR MAIN PUMP NORMALIZED READ RISE 

CALL TAEP (NPSNM.CNM, l,K,L,ZP,XP,YP,£hNM, J,PARMN,PARMX) 
PAB1=CNM 

IF (j-li 16C,16C,860 
16C ITAE=6 

♦ CALL TAEP FCP MAIN PUMP EFFICIENCY 

CALL TAbP I NFSNM,tNM,2,K,L,ZP.XPtYP,EATPM ,J,PARMN,PARMX) 

PAR1 = (.NM 

IF (w-1) 165,165,660 
CCMPLTE MAIN PUMP HEAU RISE 
165 CFM=ChNM*NM**2 

4*** CCMPLTE MAIN PUMP PRESSURE RISE 
OPM»CHM/I 144.*SVMII 
CCMPLTE MAIN PCMP POWER 
SFFFM=WP*CFM/55C./£ATPM 
CCMPLTE MAIN POMP TORUUE 
TCRFM=33CCC.*SFFPM/l 2.*3. 141 55+NM ) 

«**♦♦ CCMPLTE MAIN PUMP DISCHARGE TOTAL PRESSURE 
PTME=FTMI4CPM 

CCMPLTE MAIN PUMP DISCHARGE STATIC PRESSURE 

FME* PTME- (WP/AME) ♦♦2*144. ♦SVMI/2,/32. 174 
IF (lFH-1) 18C, 180,205 
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C MAIN 536 

IP FIRST PASStCALL PRATO TO IMTULUE MAIN TURBINE PRESSURE RATIOHAIN 537 

C MAIN 538 

160 CALL FRATC ISPPPM>TT1N*PATM tUM.fiAMP tCPM,CTt XT, YT tK ,PRM(l) fPARMMAIN 539 

lK,PARMXfPARl,JI MAIN 540 

IPRs2 MAIN 541 

ITAG*10 MAIN 542 

IF (J-ll 155,195.855 MAIN 543 

C MAIN 544 

C**** RLTUFh PCINT FOR MAIN TURBINE PRESSURE RA1I0 CORRECTICN LOOP, MAIN 545 

C«*** INCREMENT CCUKTER MAIN 546 

C MAIN 547 

190 I1ER6«ITER6^1 MAIN 548 

JT£MF«0 MAIN 549 

1S5 lIERf«0 MAIN 550 

200 ITER5-1TER5+1 MAIN 551 

205 ITAB«1 MAIN 552 

C MAIN 553 

CALL TA8IN FCR MAIN TURBINE FLOW PARAMETER MAIN 554 

C MAIN 555 

CALL TA8IN (PRMI ITER6 1 . ITAB, K,XT , YT ,FPM, J .PARMX.PARMN ) MAIN 556 

PAR1»PRM(ITER6| MAIN 557 

IF IJ-n 210,210,850 MAIN 558 

C MAIN 559 

(.**** CCMPLTE MAIN TURBINE CO MAIN 560 

C MAIN 561 

210 CCM»StRT(CT*CPM*TTIM4(l.-( l./PRM(IT£Rt)|6*I IGAMM-1, J /6AMM ) J) MAIN 562 


C 

C**** CCMPLTE MAIN TURBINE VELOCITY RATIO 
C 

UCC«*yM/CCM 

ITA8»2 

C 

C**** CALL TABIN FCR MAIN TURBINE EFFICIENCY 

C 

CALL TA81N (LCCM, ITAB,K,XT,YT,EATTM, J ,PARMX,PARMN) 

PAR1»UC0M 

IF (J-I) 215,215,650 

C 

c**** CCMPLTE MAIN TUREINE ENTHALPY DROP 
C 

215 DhTM»EATTM*CCM**2/CT 
GC TC (22C,250},1FLAG 
C 

C#*** 1FLAG«1,TLR£INE INLET PRESSURE CPTICN .COMPUTE MAIN TURBINE FLOW 
€♦♦♦♦ RATE 
C 

220 NTM(ITER61>FPM*PTTIM/S0RT(TT1M) 

C 

(.**** CCMPLTE MAIN TUREINE POWER 

C 

SFPTM«778.16*kTM(ITER6)*0HTM/550. 

C 

CCMPLTE MAIN TUREINE TORQUE 

C 

TCRTMs330QC.«SHP1M/l2.«3.14159*NMI 

C 

£♦*♦* CFECK FIRST TIME POINT 
C 

IF IJT-U 225,225,230 
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C 

FIRST TIME FCINT.SAVE MAIN SHAFT SPEEL FOR SUCCESSIVE ITERATIONS 
C4*** UNTIL FAIN TCREINE POWER EtiUALS PUMP POWER 
C 

225 NFINT*NM 

CLNVERCENCE TEST FOR MAIN SHAFT POWER 
IF lAESI l.-SFfTM/SHPPMJ~.001i 270,27C,226 
**** NC FEWER EALANCEf CHECK ITERATION COUNTER 

226 IF IITER2-3CI 227,900.900 

**** LESS THAN THIRTV ITERATIONS. CCRRECT MAIN SHAFT SPEED 

227 NM=NF=*(SHPTM/SHPPMJ**0.33333 3 
GL TC 120 

***♦ TIME IS GREATER THAN FIRST TIME POINT .COMPUTE NEW SPEED FROM 
♦ ACCELERATION RELATION 

2 30 NMINI=NM+72G.=»CTIM£*(TORTM-TORPMi /< 2. ♦S. 1A159*I MA » 

GO TC 270 

IFLAC*2,MAIN SHAFT SPtEO OPTION. CHECK FIRST TIME POINT 
25C IF (JT-Ii 255,255,260 

4*** FIRST TIME FEINT, SET TURBINE POWER ECLAL PUMP POWER 
255 ShPTP=SHFPM 

4*4* SET FAIN TLREINE TOROUE EUUAL POMP TORULE 

TCRTP=TCRFM 
GC TC 2C5 

*♦** TIME IS GREATER THAN FIRST TIME POINT .COMPUTE NEW TURCUE FROM 
4444 ACCELERATION RELATION 

260 ICRTM = TCRPM + 2.*3. H159*1MA* ( NM-NM INT 1 /( 72C.*DTIME) 

4*44 CCMPCTE MAIN TURBINE PUwER 

ShPTM=2.«3.1A159*NM*TORTM/330C0. 

4444 CCMPCTE MAIN TUREINE FLOW RATE 

26 5 WTM (ITER6 ) = 55C.^ShPTM/ ( 77B. 16*DHTM) 

*444 CCMPCTE MAIN TUREINE INLET TOTAL PRESSURE 

PTTIM = WTM n TER6M SORT CTTIM) /PPM 
GAMM*CAMMAnTIM,PTTlM) 

CPM=CPITTIM,PTT1MI 
270 IT£R2=0 
C 

CCMFLTE MAIN TUREINE EXHAUST TOTAL PRESSURE 
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«>»** 
♦ 4 ** 


MAIN 655 

PTTE^«FTTl»*/Plil*(lTER6l MAIN 656 

MAIN 657 

SET INCUCEF TURBINE INLET TOTAL PRESSURE EQUAL MAIN TURBINE MAIN 658 

♦♦♦♦ EXMALST TOTAL PRESSURE MAIN 659 

MAIN 660 

PTTI 1«FTTEM MAIN 661 

GC TC 320 MAIN 662 

MAIN 663 

•♦♦♦ RETURN PCIRT FOR INDUCER TURBINE EXHAUST PRESSURE CALCULATION MAIN 664 

MAIN 665 

310 TTEG*TTEI MAIN 666 

JTEMf*l MAIN 667 

MAIN 668 

**** COMPUTE INLUOER TURBINE EXHAUST PRESSURE MAIN 669 

MAIN 670 

320 PT£I=IPATM*SCRTIFATM**244,*XLCSS6kTMI ITER6)*^2*TT£G» )/2. MAIN 671 

MAIN 672 

CCMPUIE INCUCEfi TURBINE PRESSURE RATIC MAIN 673 

MAIN 674 

PRI=fTTII/FT£I MAIN 675 

MAIN 676 

♦♦♦♦ CHECK INDUCER TURBINE PRESSURE RATIC LESS THAN 1. MAIN 677 

MAIN 678 

IF IFRI-1.) 25C. 350,360 MAIN 679 

MAIN 680 

INCUCER TURBINE PRESSURE RATIO IS LESS THAN 1., REDUCE MAIN TURBINEMAIN 681 

PRESSURE RATIC MAIN 662 


IF (FRI-1.) 350,350,360 


350 PRM IITER6 »*C,T 5*PRM( I TER6 ) 40.25 

♦44* CHECK ITERATION COUNTER, IF LESS THAN 20, RETURN KITH REDUCED 
PRESSURE RATIC 

IF UTER5-3CJ 200,900,900 
360 ITAfi=3 

*444 CALL TA8IN FOR INDUCER TURBINE FLOW PARAMETER 

CAUL TABIN (PR I , I TAB, K,XT ,YT ,FP I , J, PARMX , PARMN) 

PARl-PRI 

IF (J-n 270,370,650 

4444 COMPUTE MAIN TURBINE EXHAUST TOTAL TEMPERATURE 
370 TTEM»TTIM-CHTM/CPM 

4444 SET INDUCER TUREINE INLET TOTAL TEMPERATURE EQUAL MAIN TURBINE 
4444 EXHAUST TCTAL TEMPERATURE 

TTII-TTEM 

4444 COMPUTE INCUCER TURBINE FLCW RATE 
WTI(ITER6i-FPI4PTTII/S0RT(TTIII 

4444 CCNVERCENCE TEST FOR TURBINE FLOW RATE, 450 IF MAIN TURBINE AND 
4444 INCUCER TURBINE FLOW RATES ARE SUFFICIENTLY CLOSE 


IF (A6S(l.-WTM(lTER6)/UTI(lT£R6)l>.0Cn 450,450,400 
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♦ ♦♦♦ 

ACC 

^2C 

4 

4444 

A2i 


4444 
4 444 

A3C 
A AC 

4 4 44 
4444 

AAl 

4 444 
4444 

4444 
4 4 44 

4 4 44 
AA5 
AA6 
A5C 

4444 


4444 


4444 


MAIN 

FLCk. HATE CIFFEREhCE EXCEEDS TCL Eft ANCE, CHECK FIRST PASS THROUGH MAIN 
MAIN TURBINE PRESSURE RATIO CORRECTION LOCP MAIN 

MAIN 

IF (iT£R£-n A2CfA20,A30 MAIN 

MAIN 

FIRST PASS IN LCCP CHECK FIRST PASS THROUGH PROGRAM MAIN 

MAIN 

IF (JPR-n A21,A21,AA5 MAIN 

MAIN 

FIRST PASS THROUGH PROGRAM, CORRECT MAIN TURBINE PRESSURE RATIO MAIN 
kilTH PRATC FCR NEW BACK PRESSURE MAIN 

MAIN 

CALL PRATC ( SHFPM , TT IM, PTTEM ,UM, GAMP ,CPM, CT , X T , VT ,K , PRM( 2 ) ,PAK WMA I N 
IN.PARMX.PARI, JJ MAIN 

ITAE=11 MAIN 

IF (j-ll ISC, 190,855 MAIN 

MAIN 

NUT THE HIRST PASS THROUGH PRESSURE RATIG CORRECTION LU(JP,IF MAIN 

ITERATION CCUNTEP IS LESS THAN 30 CCRRECT PRESSURE RATIO MAIN 

MAIN 

IF UT£Rt-2C) AA0,900,9QC MAIN 

IF {^TEMPI AAl, AAl, 445 MAIN 

main 

JTERf*C,PRESSCR£ RATIOS AND FLOw RATES CF BOTH TURBINES HAVE BEEN MAIN 
CHANGEC, COMPUTE NEW SLOPES MAIN 

main 

SLCP1=(WTM( ITER6I-WTM( I TER6- 1 J ) / ( PRR ( 1 TER 6 ) -PRM ( I TER6-1 )) MAIN 

main 

SLCfl IS THE RATE CF CHANGE CF MAIN TURBINE FLOW RATE WITH MAIN MAIN 
TURBINE PRESSURE BATIU MAIN 

MAIN 

MAIN 

SLCP2 IS THE RATE OF CHANGE CF INDUCER TURBINE FcCW RATE WITH MAINMAIN 
TURBINE PRESSURE RATIO MAIN 

MAIN 

SLLF2=(NTI( ITER6J-WTK ITER6-1 ) )/(PRM ( ITERO-PRM ( I TtRb-I ) ) MAIN 

MAIN 

CCRRECT MAIN TUREINE PRESSURE RATIO MAIN 

MAIN 

PRM ( ITERfc+l )=FRM( I TER6 I ♦( WTI ( I TERt |-W TM (I TER6 )) / ( SLCP1-SLCP2 ) MAIN 

IF (PRM( ITER6+1)-1,0) 446,446,190 MAIN 

FRMUTER641 ) = 1.C1 MAIN 

GO TC 190 MAIN 

GAMi=CAMMA(TT Jl.PTTII ) MAIN 

CPl=Cf(TTll,PTTIli MAIN 

MAIN 

CCMPITE INDUCER TUhBINE ENTHALPY CPCP MAIN 

MAIN 

CHTII=CPI=*TTII^n,-Il./PRI)**((UAMI-l.)/GAMI) ) MAIN 

MAIN 

CLMFLTE INDUCER TURBINE CC MAIN 

MAIN 

CCI = SCRT(CT^CFTli ) MAIN 

MAIN 

COMPUTE INCUCER TURBINE VELOCITY RATIO MAIN 

MAIN 

UUCI=UI/CCI MAIN 

ITAE=4 MAIN 
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CALL TA81A FCF IhCUCER TURBINE EfFlCIENCV 

CALL TABIN (UCCIt lTAB«K»XT,YTf EATTl f JtPARRXtPARRN} 

RARl<UCai 

If <J-li S0O.S0C.85O 

CCfPLTE IhCUCER TURBINE ENTHALPY ORCP 
CHTI«EATTI4DHTII 

CCMPLTE INCUCER TURBINE EXHAUST TEHPERATURE 
TT£I»TTII-CHTI/CPI 

CCNVERGENCE lEST FOR INDUCER TURBINE EXHAUST TEMPERATURE 

IF (AESU.-TTEI/ITEGI-.OOll 510,510,310 

CCPPLTE IHCUCER TURBINE POWER 

SHPIIUTEPAJ»hTIUTER6l4UHTI4770.16/55O. 

CCPPUTE INCUCER 1UR6INE TORQUE 

T08TI»3300C*4SHPTIUTER41/C2.43,lA1594Nn 
IF UT-ll 550,550,650 

MIhT*=NI 

CCNVERCENCE TEST ON INCUCER SHAFT PChER FOR STEACY STATE POINTS 
IF lAesn,“SHPPIUTER4)/SHPTH ITER4II-.001I 700,560,560 


MAIN 774 
MAIN 775 
MAIN 776 
MAIN 777 
MAIN 778 
MAIN 779 
MAIN 780 
MAIN 781 
MAIN 782 
MAIN 783 
MAIN 784 
MAIN 785 
MAIN 786 
MAIN 787 
MAIN 788 
MAIN 789 
MAIN 790 
MAIN 791 
MAIN 792 
MAIN 793 
MAIN 794 
MAIN 795 
MAIN 796 
MAIN 797 
MAIN 798 
MAIN 799 
MAIN 800 
MAIN 801 
MAIN 802 
MAIN 803 
MAIN' 804 
MAIN 805 


THE CifFERENCE EETwEEN INCUCER TURBINE ANC INDUCER POWER EXCEEDS 
TCLERANCE,TEST fCP FIRST PASS 

IF (ITER4-1) 57C,57C,565 

ACT THE FIRST PASS, CHECK FCH 30 ITERATIONS 
If UTERA-2CJ 560,900,900 

FIRST PASS, AVERAGE INDUCER ANC INCUCER TURBINE POWER TO DETERMINE 
NEW INCUCER SPEED 

SHPAV»(SHPFlCll+SHPTI(lll/2. 

NIf 1N*NI 
ITA8«9 

CALL TABIN FCR NEW INCUCER SPEED 

CALL TA8IN ( SF F A V , 5,K.XT , YT ,N I , J, PARMA, PARMN) 

PARl-SHPAV 

IF tJ-1) 140,140,650 

FCR CTHER TFAN THE FIRST I TERATIGN, CCMPUTE RATE OF CHANGE OF 
INDUCER PCWER WITH SPEED. SL0P3 
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MAIN 827 
MAIN 823 
MAIN 829 
MAIN 830 
MAIN 831 
MAIN 832 
MAIN 833 
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Q*4** 

C 


£**♦* 

C 

esc 

444 * 

7GC 




?1G 


72C 

735 

««44 

74C 

745 
♦ * ** 
750 

4 « 4 « 


755 

C 


CC^'FLTE R^Tt CF ChANGt OF INDUCER TURBINE PURER RITH SPEED 

SLCF^ = (ShPTI( ITER4I-SHPTII ITER4-1))/(M-MFINI 
MFIN=NI 

CORRECT INDUCER SPEED TO OBTAIN BALANCE EETREEN INDUCER AND 
INDUCER.TUREINE POWER 

Ni = M4l SHPTH ITER4I-SHPPK ITER4n/(SLCP3-SL0P4l 
GO TC 140 

NOT A STEALS STATE PU INT .COMPUTE NEW INDUCER SPEED BASED CN 
ACCELERATION RELATION 

M INT=M47 2C.*DTiME*( TORT i-TORPI ) /( 2, ♦S. 141 59*1 I) 

CASE OR TINE POINT COMPLETE. SAVE INTERMEDIATE VALUES FOR PRINTING 

PRMF = PRM( ITER£ I 
RTMF=bTMI ITER6 ) 


MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 
B46 

847 

848 

849 

850 
831 

852 

853 


hT1F = kTII ITERt) 


MAIN 

854 

SHF IF = ShPFH ITER4 ) 


MAIN 

855 

ShPTF=SRPTI(nER4) 


MAIN 

856 



MAIN 

857 

TtST FUR STEADY STATE UK TRANSIENT CASE 


MAIN 

853 



MAIN 

859 

GC TC (71C.72C) .KFLAG 


MAIN 

360 



MAIN 

861 

KFLAG=1, STEADY STATE CASE, CALL CUT3 FCR CLTPUT 


MAIN 

862 



MAIN 

86 3 

CALL 0LT3 ( £ A T A 1 , IM , 1 0 , I Y , 1 P AGE 1 


MAIN 

864 

GC TC 5C 


MAIN 

865 



MAIN 

866 

KFLAG=2,TRARSIENT case, compare TIME hITh PAXIMUM TIME 

MAIN 

867 



MAIN 

868 

IF (TIME-TMAXJ 7'5,76G,76C 


MAIN 

869 



MAIN 

870 

TIME IS LESS TEAR MAXIMUM TIME, CFECK FOR FIRST 

TIME PCINT 

MAIN 

871 



MAIN 

872 

IF (jT-1) 75C,75C,740 


MA IN 

873 



MAIN 

874 

NOT FIRST TIME PCINT, CHECK PRINT INTERVAL 


MSAIN 

875 



main 

876 

IF IdFRNT-jFi 745,745,790 


MAIN 

877 



MAIN 

37a 

THIS TIME PCINT TO BE PRINTED, RESET CCUNTER TC 

0 

MAIN 

879 



MAIN 

880 

JP=G 


MAIN 

881 



MAIN 

882 

INDEX PRINT CCUNTER 


MAIN 

883 



MAIN 

884 

NCT=NCT*1 


MAIN 

885 



MAIN 

886 

SAVE CCMPLTEC CATA FOR PRINTING IN CATAl 


MAIN 

887 


DC 755 1=1,75 
CALCK l,NCTi=DATAltIi 

CFECK FDR PLCTING 


MAIN 

MAIN 

MAIN 

MAIN 

MAIN 


888 

889 

890 
991 
892 
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C 

IF UFLCI-ll 758,757,757 

C 

c«*** JPLCl IS GFEAIEP THAN 0,CALL PLOT SUB8GUT1NE 

757 CALL PLCT UA.CATAI.IBRANI 
I8RAN*! 

**** CHECK FCR 50 TIPE POINTS SAVEC FOR PRINTING 

758 IF (NCT-SCJ EC, 756, 756 

**** 50 TIPE FLINTS HAVE BEEN SAVEC FOR PRINTING, CALL CUTl FCR OUTPUT 

756 CALL CLTl (C ALCl ,KCT. IH, 10 , I Y , IP AGE ) 

NCT»C 
GC TC 80 

♦♦♦♦ THIS TIRE POINT NCT TO BE PRINTED, TEST FCR NATERHAMMER SOLUTION 

790 GC 1C (791,80 ,JFLAG 

**** JFLAC»1,NATERHANP£R SOLUTION HAS BEEN INCLUDED, SAVE SLCTICN 
**** LINE AND INDUCER DATA FOR PRINTING 

791 PCT*NCT*1 
CC 795 I»l,12 

795 CALC2(I,PCTI»£ATA1(II 
IF (JFLCT-n €20,810,820 

eiC CALL FLCT ( 6 A , C AT A1 , I BRAN ) 
lERAN^l 

♦♦♦♦ CHECK FCR 50 INTERMEDIATE TIRE PCINTS CCHPUTEO 
820 IF (NCT-50 60,796,796 

**•* SC INTERRECIATE TIME POINTS CCMPUTEC , CALL 0UT2 FCR INTERMEDIATE 
♦♦♦♦ CUTPLT 

796 CALL CLT2 (CALC2 ,MCT, IM, ID, lY, IPA6E) 

MCT=0 
GC TC 80 

850 ICIAG*1 
GC TC 910 
855 IC1AG«2 
GC TC 910 
860 ID1AG*3 
GC TC 910 
865 ID I AG =4 
GC TC 910 
900 IDIAG^S 

**** CALL LIAG FCR DIAGNOSTIC MESSAGES 

910 CALL CIAG ( ID I AG, J, ITAB.IHPR • ITERl, 1 T ER2 , 1TER4, 1TER5, 1TER6, PARI , 
1PAR2,PARNN,PARMX) 

C 

C44** after diagnostic MESSAGEtPRINT DATA SAVED FROM PREVIOUS TIME 
C«««* PCINTS INCLUDING INCOMPLETE LAST CASE 
C 


MAIN 893 
MAIN 894 
MAIN 895 
MAIN 896 
MAIN 897 
MAIN 898 
MAIN 899 
MAIN 900 
MAIN 901 
MAIN 902 
MAIN 903 
MAIN 904 
MAIN 905 
MAIN 906 
MAIN 907 
MAIN 908 
MAIN 909 
MAIN 910 
MAIN 911 
MAIN 912 
MAIN 913 
MAIN 914 
MAIN 915 
MAIN 916 
MAIN 917 
MAIN 918 
MAIN 919 
MAIN 920 
MAIN 921 
MAIN 922 
MAIN 923 
MAIN 924 
MAIN 925 
MAIN 926 
MAIN 927 
MAIN 928 
MAIN 929 
MAIN 930 
MAIN 931 
MAIN 932 
MAIN 933 
MAIN 934 
MAIN 935 
MAIN 936 
MAIN 937 
MAIN 938 
MAIN 939 
MAIN 940 
MAIN 941 
MAIN 942 
MAIN 943 
MAIN 944 
MAIN 945 
MAIN 946 
MAIN 947 
MAIN 948 
MAIN 949 
MAIN 950 
MAIN 951 
MAIN 952 
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GC TC t70Cf7fi5)tKFLAG 
765 IFCNCl) 5C,5C,7tC 
76C NU=FCT+1 

DC 770 1=1,75 
770 CALCHi,ACIi=CATAl(II 

IF (jFLCT-n 773,765,765 
765 CALL FLCT 1 6 A , DA T Al , I 6RA1M ) 

IERAF=1 

773 CALL LCTl ( C ALC I , ACT, IM , I C , I Y , IPAGE I 
ACT = C 

IF (FCn 5C,5C,775 

775 CALL CLT2 ( C ALC2 , HCT, IM , I C , I Y . IPAC-E J 

CL TC 50 
END 


MAIN 953 
MAIN 95A 
MAIN 953 
MAIN 956 
MAIN 957 
MAIN 958 
MAIN 959 
MAIN 960 
MAIN 961 
MAIN 962 
MAIN 963 
MAIN 964 
MAIN 965 
MAIN 966 
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SUfiftCtTINE FILE 


FILE 

000 

€***<* 

This SUBROUTINE READS IN THE HYDROGEN PROPERTIES DATA TO BE USED 

FILE 

001 

€♦♦♦♦ 

IN SLBRCUTINE HPRCP 


FILE 

002 

C 



FILE 

003 


SUBRCUTINE FILE ITt SVtH,St SOKIC.NUM 

•SSL*TSL*P*AA*RH0A*6) 

file 

004 


REAL NlXNT»NC4^Jf IHA.II 


FILE 

005 


CIRERSICN 3(251 •T(25t30i«SV( 29*30 It 

H(25*30)*S(25*30), 

FILE 

006 

lNUM(25)tSSL<l4)tTSLIl4),P(25)tAA(5« 

40)*RHGX(90)«B(9,8)* 

FILE 

007 

2SCMC(25«30} 


FILE 

008 

10 

FCRPAT (8F10.0I 


FILE 

009 

20 

FCRRAT (25I3I 


FILE 

010 

C 



FILE 

Oil 

£♦♦♦♦ 

REAL NUMBER CF DATA POINTS FOR EACH 

I SOBAR 

FILE 

012 

C 



FILE 

013 


REAC (5*20) (NUM(1)*1>1.25) 


FILE 

014 


DC 5C 1^1*25 


FILE 

015 


H^NLCd 1 


FILE 

016 

C 



FILE 

017 

£♦♦♦♦ 

REAC TEMPERATURES FOR ISOBAR I 


FILE 

018 

C 



FILE 

019 


REAC (5*1CI (T(l, J).J«1,M) 


FILE 

020 

C 



FILE 

021 

c**** 

REAC SPECIFIC VOLUMES FOR ISOBAR I 


FILE 

022 

C 



FILE 

023 


REAC (5tlO) (SVdtJ). J«l*M) 


FILE 

024 

c 



FILE 

025 

Q4*** 

REAC ENTHALPYS FOR ISOBAR 1 


FILE 

026 

c 



FILE 

027 


REAC (5*10) (H(I* J)*J«l*M) 


FILE 

028 

c 



FILE 

029 


REAC ENTRCPYS FOR ISOBAR 1 


FILE 

030 

c 



FILE 

031 


REAC (5*10) (Sd* J)* J«1.M) 


FILE 

032 

c 



FILE 

033 

(.**** 

REAC SONIC VELOCITIES FOR ISOBAR I 


FILE 

034 

c 



FILE 

035 

50 

REAC (5*10) (SCNICd* Jl.J^l.M) 


FILE 

036 

c 



FILE 

037 


CONVERT PRESSURES FROM ATMOSPHERES 

TO PSIA 

FILE 

038 

c 



FILE 

039 


A(l)«l. 


FILE 

040 


A(2)«l*5 


FILE 

041 


CO 55 1*2*10 


FILE 

042 

55 

A(di)*i 


FILE 

043 


A(12)*12«5 


FILE 

044 


CO 6C 1*1*8 


FILE 

045 

60 

Ad + 12)*lC + 5*I 


FILE 

046 


CO 65 1*1*5 


FILE 

047 

65 

Ad42C)*504lO*I 


FILE 

048 


CO 8C 1*1*25 


FILE 

049 

80 

Pd)*lA.6S6«A(I) 


FILE 

050 

C 



FILE 

051 

CA*4>A 

REAC CORRESPONDING VALUES OF SATURATED LICUIO TEMPERATURE AND 

FILE 

052 

£««** 

ENTRCPY 


FILE 

053 

C 



FILE 

054 


REAC (5*10) (TSL(J)*J«1*14) 


FILE 

055 


REAC (5*10) (SSL(J)*J«1.14) 


FILE 

056 

25 

FORMAT (5E16.7) 


FILE 

057 

30 

FORMAT (10F8.4) 


FILE 

058 

35 

FORMAT (4E20.8I 


FILE 

059 
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FILE 060 

•♦♦♦ READ EMPIRICAL CCEFFICIENTS FILE 061 

FILE 062 

REAC (5»25) ((AAU»JI.J<1«901.I>1»5) FILE 063 

REAC (5»30J (RHCXm.l«1.90l FILE 064 

REAC (5t35) (IBUf JltJ>I.8)«i=l»9I FILE 065 

RETLRh FILE 066 

END FILE 067 
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C***4 StBDCUTINE IKTA8 ♦♦♦<■ INTABOOO 

€♦♦♦♦ THIS SiiBRCyilNE IS USED TO READ IN AND LIST THE TABULATED PUMP INTABOOl 
€♦♦♦♦ AND TURBINE CHARACTERISTIC CURVES 1NTAB002 

C INTAB003 

SUBRCUTINE INTAB UN, ID. IY.K«L«XT»VTt XP.YP.ZPI INTAB004 

REAL MINT*KC(AI» INA.II INTAB005 

QINEASICN K(13l«L(Ai,ZP(A«10).XP(A,3Qi* YP44»10*30)»xn9*30) t INTAB006 

2YTI9.30I INTAB007 

CIHENSICN CURVE(£fI8l INTA8008 

5 FORMAT U3f SXtlBAA/IBFlO.On INTAB009 

10 FORMAT (3A2J INTABOlO 

15 FCRMAT ('!•/• CATE • . A2, •-* .A2. , A2 ,25X ,* TWO-SPCOL TURBOPUMP PERINTABOll 

IFQRMANCE PREDICTION* . 31X. • PAGE I3//54X, ‘CURVES USED*//) INTAB012 

16 FCRMAT (• 1 MAIN TURBINE FLOW PARAMET ER« •••••••*« 18A4// INTAB013 

1* 2 MAIN TURBINE TOTAL EFFICIENCY *• 18A4// INTAB014 

2* 3 INDUCER TURBINE FLOW PARAMETER*.* •• * > 18A4// 1NTAB015 

3* 4 INCUCER TURBINE STATIC EFFICIENCY** • t 1BA4/) INTAB016 

17 FORMAT ( • 5 MAIN PUMP HEAD RISE.**.... *, 18A4// INTA8017 

1* 6 MAIN PLMP EFF ICIENCY. .*.....•**. ...«t 18A4// INTAB018 

2* 7 INDUCER PUMP HEAD RISE *,18A4// INTAB019 

3* 8 INCUCER PUMP EFFICIENCY. 18 A4/// ) INTAB020 

20 FCRMAT ( 2 1 3« 2X • 1 8A4/4 8F 10.0 J ) INTAB021 

25 FCRMAT (8F1C.CJ INTAB022 

30 FCRMAT (20X«*MAIN TURBINE* ,55X. * INDUCER TURBINE* /lOXt *( 1) * t27Xt INTAB023 
1* (21* ,37X, *13) * ,27X,* (41 */3X,*TOTAL*,6X, ‘FLOW*, 14X. 'VELOCITY* , INTAB024 
25X,*T0TAL* ,23X,* STATIC *,5X,* FLOW* ,14X,* VELOCITY *,4X,*STATIC*/2X, INTAB025 
3*PRE<SURE* ,2X, ‘PARAMETER*. 13X,«RATXC* ,6X, *EFF.‘ , 23X, * PRESSURE * , INTAB026 
42X, ‘PARAMETER* ,1 3X , ‘RAT 10 *. 5X, * EFF. • /3X , ‘RATIO* ,26X , * U/CO* ,35X, INTAB027 
5‘RATIC* ,26X.‘U/CC‘/I INTA8028 

35 FCRMAT (F9.3,F1C.3I 1NTAB029 

36 FCRMAT ( * ♦ * , 31X, F 8.4. F 10. 3 I INTAB030 

37 FCRMAT ( * ♦ • . 7CX, F 8.3. F 10. 3 I INTAB031 

38 FORMAT ( * ♦* . 10 IX , F8.4. F 10.3) INTAB032 

39 FCRMAT (IX) INTAB033 

40 FCRMAT (45X,‘MAIN PUMP NORMALIZED HEAC RI SE */59X, * ( 5 ) *//2X, 1NTAB034 

l‘NPSH/N2‘ /2X,*FT/RPM2‘ .IX.IOEII.3) INTA8035 

41 FCRMAT (F10.3,10E11.3) INTA8036 

45 FCRMAT (SOX, ‘MAIN PUMP £FFICIENCY‘/59X, * ( 6) • //2X, 1NTAB037 

l‘NPSK/N2‘ /2X,‘FT/RPM2‘ .IX.IOEII.3) INTAB038 

46 FCRMAT (11F10.3) INTAB039 

47 FCRMAT (//5X, *C/N‘/4X. ‘GAL/REV*/ ) INTAB040 

50 FCRMAT (46X. * INCUCER NORMALIZED HEAD RI SE */59X, * ( 7) * //2X, INTAB041 

l‘NPSH/N2‘ /2X,*FT/RPM2‘ ,1X,10E11.3) 1NTA8042 

55 FCRMAT ( 5 IX .* INCUCER EFFICIENCY‘/59X, *( 8) *//2X, INTAB043 

l‘NPSH/N2‘ /2X,*FT/RPM2‘ ,IX,10E11.3) INTAB044 

IPAGE«1 INTAB045 

INTAB046 

♦♦♦• READ CATE INTAB047 

INTAB048 

REAC (5,10) 1M,IC,IY INTAB049 

INTAB050 

**** WRITE PACE 1 TITLE INTAB051 

INTAB052 

WRITE (6,15) IM,1C,IY,1PAGE INTAB053 

1NTAB054 

♦♦♦♦ REAC TURBINE TABULATED CURVES 1NTAB055 

INTAB056 

DC ICO 1=1, A INTAB057 

1NTAB058 


C 
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C4««« I>1 fAlh TtPBlht FLOW PARAMfcTEK OiRVE 
C**** 1=2 FAIN TURBINE EFFICIENCV CURVE 

1=3 inducer turbine flow parameter curve 

1*4 INDUCER TURBINE EFFICIENCY CURVE 
C 

REAC 15.5) IX, f CURVE! 1.H),H«1,18) ,( XI ( I , J ) , YT II , J I , J»1 ,IX) 

C 

5EI XU)=NUFBER CF POINTS CN CURVE 
C 

100 KU)»IX 
C 

REAL INDUCER AND PUMP TABULATED CURVES 
C 

DC 120 1-5, e 
C 

C**** 1 = 5 FUMP NCRMAUZED HEAD RISE CURVE 
C»*** 1=6 FUMP EFFICIENCY CURVE 
(;#♦♦♦ 1 = 7 INDUCER NORMALIZED HEAD RISE 
C**** 1=8 INDUCER EFFICIENCY 
C 

Q**4* REAC CURVE IDENTIFICATION AND VALUES CF NPSH/N**2 
C 

READ (5,20 IZ,IX,(CURVE( I.M»,M=l,l6) ,(ZP(I-4,J),J=I,IZ) 

C 

Q**** READ C/N VALLES 
C 

REAC (5,25) (XP(I~4,J),J*1,IX) 

C 

C**** REAC CEL-H/N**2 GR EFFICIENCY VALUES 
C 

DC 120 1J=1,IZ 

REAC (5,25) (YP( I-^,IJ, J ) , J*1,IX) 

C 

€=*♦♦♦ SET K(I) = NUMBER CF POINTS CN CURVE 
C 

K( 1 ) = IX 
C 

SET L=NUM6ER CF CURVES 
C 

120 L(I-A)=IZ 
C 

C»*** PRINT CURVE TITLES 
C 

WRITE (6,16) ((CURVE(I,M),M=1, 18), 1 = 1,4) 

WRITE (6,17) ((CURVE(1,M),M=1,I€),I«5,8) 

C 

PRINT TABULATED DATA FOR TURBINE CURVES 
C 

WRITE (6,30) 

I = l 

DC TC 160 
150 I*I+1 

160 IF (I-K(D) 165,165,170 
165 WRITE (6,35) XT ( 1 , 1 ) , YT( 1 , I ) 

170 IF (I-K(2)) 175,175,180 
175 WRITE (6,36) XT (2 , I ), YT (2, I ) 

180 IF (I>K(3)) 1€5,I85,190 
185 WRITE (6.37) XT(3 , I ), YT (3 , I ) 

190 IF (I-K(4)) 195,195,200 
195 WRITE (6,38) XT (4 , I ), YT(4, 1 ) 


1NTA6059 
1NTAB060 
INTAB061 
INTAB062 
INTAB063 
INTAB064 
INTAB065 
INTAB066 
INTAB067 
INTAB068 
INTAB069 
1NTAB070 
INTAB071 
INTAB072 
INTAB073 
INTAB074 
INTAB075 
INTAB076 
INTAB077 
INTAB078 
INTA6079 
INTAB080 
INTAB081 
INTAB082 
INTAB083 
INTAB084 
INTAB085 
INTAB086 
INTAB087 
INTAB088 
INTAB089 
INTAB090 
INTAB091 
INTAB092 
INTAB093 
INTAB094 
INTAB095 
INTAB096 
INTAB097 
INTAB098 
INTAB099 
INTAB 100 
INTABlOl 
INTAB102 
INTAB 103 
INTAB104 
INTAB105 
INTAB 106 
INTAB107 
1NTAB108 
1NTAB109 
INTAB 110 
INTABlll 
INTAB112 
INTAB113 
1NTAB1I4 
INTAB115 
1NTAB116 
INTAB117 
INTAB118 
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2C0 IF (1-301 21C»230,230 
210 IF (I-Kdl) 15Ct220t220 
220 hRITE (6t39l 
GO TO 150 
C 

€♦♦♦♦ PRINT TAeULiTEO CATA FOR PUMP NORMALIZED HEAD CUR\<E 
230 IPAGE«2 

MRITE (6*15} IM«10,IY«IPAGE 
1>L(1I 

MRITE (6»40l (ZPClf J).J«1«II 
MRITE (6*471 
IXsK(5i 
DO 240 J»1*IX 

240 MRITE (6*41J XP ( 1 * J) * ( YP( 1«N. J) *M»1« I) 

♦♦♦♦ PRINT TABULATED £ATA FOR PUMP EFFICIENCY CURVE 
IPA6£*3 

URITE (6flSi IM.ICtlY.IPAGE 
1«L(2I 

hRITE (6*45) (ZP ( 2 * JI • J«1 • U 
MRITE (6*47) 

1X-K(6) 

OC 250 J«1*IX 

250 NRITE (6*46J XP( 2 • J I • ( YP( 2*M. J) *M«1 * I J 
**** PRIM TABULATED CATA FOR INDUCER NORMALIZED HEAD CURVE 
IPAGE»4 

MRITE (6,15) IM,IC,1Y*IPAGE 
I=L(3) 

NRITE(6,50) (ZP(3*J),J«1,I) 

MRITE (6,47) 

IX-K(7) 

CC 260 J«1,1X 

260 MRITE (6,41) XP ( 3 , J ) * ( YP( 3,N , J) , M>1 , I ) 

♦ PRIM TABULATED CATA FOR INDUCER EFFICIENCY CURVE 
IPA6E*5 

WRITE (6*15) IM,IC,1Y,1PAGE 

i»L(4) 

WRITE (6,55) (ZP(4,3),J-1,I) 

WRITE (6,47) 

IX«K(8) 

CO 270 J*1,IX 

270 WRITE (6,46) XP(4 • J ), ( YP( 4*M, J) .N>1, I ) 

RETURN 

END 


INTAB119 

INTAB120 

INTAB121 

INTAB122 

INTAB123 

INTAB 124 

INTAB 125 

INTAB 126 

1NTAB127 

INTAB128 

1NTA8129 

1NTAB130 

INTAB131 

INTAB 132$ 

INTA8133 

INTAB 134 

INTAB135 

1NTAB136 

INTAB 137 

1NTAB138 

1NTAB139 

1NTAB140 

1NTAB141 

1NTAB142 

INTAB 143 

INTAB144 

INTAB145 

1NTABI46 

INTAB147 

INTAB 148 

INTAB149 

INTAB150 

INTAB151 

INTAB152 

INTAB 153 

INTAB154 

1NTAB155 

INTAB156 

INTAB157 

INTAB158 

INTAB 159 

INTAB 160 

1NTAB161 

1NTAB162 

1NTAB163 

INTAB 164 

1NTAB16S 

1NTAB166 

1NTAB167 

1NTAB168 


282 



APPENDIX A 


C44** 

Q4444 

C4444 

C 


SLBBCLTlNt INPUT ♦♦♦* 

This SUBPCUTINE READS IN THE 
IT CN PAGE 6 CF THE OUTPUT 


DATA FOR A PARTICULAR CASE AND LISTS 


5 

10 

15 

2C 


SUeRCUTINE INPUT (XT, YT,K,ONH,PATM ,1M,ID,IYI 
REAL NIINT,IPA,I1 

CIMENSIGN K( 13),XT(9,30),YT(9.30I 

CCMMCN IFLAC, JFLAG,KFlAG,JPRNT, JPLUT,TMINT,TMAX,XLIN£,NIINT,FRI , 
lXLCSS,RW,ftI,IHA, II,TPII,AI,AM,AME,0,DTIHE,NFLAG 
FLRPAT (615) 

FCRPAT (7F1C.C/(8F10.Q) I 
FCRHAT (I5/(eF10,0J ) 

FLRMAT Cl'/' DATE • , A2 , , A2, • - • , A2 ,2 5X ,* TwO- SPCOL TURBOPUMP 

IFCRMANCE PREC ICT ION' , 3 IX, • PAGE *,I3//) 


30 FORMAT (52X. 'INPUT CASE DATA'//' 
2AX,' JFLAG=« ,Il,AX,'KFLAu='.Il,4X, 
3,4X,'NFLAG*',I1// 


CONTROL FLAGS- IFLAG=', 
•JPRNT=' ,I1,4X,' JPLQT=',II 


111 


3« INITIAL TIME* ,26X,F10. 3, 'SEC ,9X, 'FINAL T IME' ,29X ,F 10. 3 , ' SEC // 
4« INC. TURBINE EXHAUST SYS 
5'ESTIMATEC INITIAL INDUCER 


, BACK PRESS. 
SPEED* ,8X,F10 


• ,F10.l,*PSIA',8X, 


1, *RPM'// 


31 


6* MAIN PUMF FLOh-SPEED RAT 10 , U/N* ,8X ,F 10. 3, * G AL/REV * , 5X , 

7'TANK TEMPERATURE', 23X, FIO. 1, 'UEG R'/) 

FORMAT (• SUCTION LINE UI AMETER* , 17X , FlC. 3 , * F T • , lOX , 

I'SUCTION LINE LENGTH' . 20X.F1 0.2 ,* FT '/ / 

2* MAIN TUREINE MEAN BLADE RADIUS ' , 8X , FIO. 3 , • I N ' , lOX , 

3'INOLCER TURBINE MEAN BLADt RADIUS ' , 5X , F 10. 3 , * IN •/ / 

4* MAIN ROTATING ASSY. MOMENT Oh INERTIA ' ,F1 0.3 , • LB- 1 N- SEC2 • , 2X , 
5'INDO. ROTATING ASSY. MOMENT OF INERTIA • ,F 10.3 , • LB- I N- SEC2 ' / ) 
FORMAT (' INCUCER INLET AREA « , 20X ,F 1C .3 , • SQ- 1 N' , 7X, 

I'PUMF INLET AREA' ,24X,F10.3, 'SO-IN'// 

2' fUMF DISCHARGE AREA • , 19X, F 10. 3, • SC- IN ' , 7X , 

3'TLREINE EXHAUST LINE LUSS COEFF , * , 6X ,F 1C .4// 

4* SUCTION LINE FRICTION FACTOR ' , 1 IX ,F 10 .4 / ) 

40 FORMAT ( 5X , ' T IME ' , 5X, ' TURB. INLET ' , 4X , ' T I ME ' , 5X , • TURB . INLET', 5X, 
I'TIME' ,4X,'MAIN SHAFT *, 6X ,' T IME ', 8X ,' TANK •/ 14X, • TEMPERATURE ', 14X, 
2'PRESSURE* , 
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17X,« SPEED' ,19X, 'PRESSURE* 


8X,*DEG R' ,8X, 


3'S£C,9X, 'PSIA* ,9X,' SEC ,8X, *RPM* , lOX , * SEC* ,9X, 'PSIA* /) 


INPUTOOO 
INPUTOOl 
INPUT002 
INPUT003 
INPUT004 
INPUT005 
INPUT006 
INPUT007 
INPUT008 
INPUT009 
INPUTOlO 
INPUTOll 
PERINPUT012 
INPUT013 
INPUT014 
INPUT015 
INPUT016 
INPUT017 
INPUT018 
INPUT019 
INPUT020 
INPUT021 
INPUT022 
INPUT023 
INPUT024 
INPUT025 
INPUT026 
INPUT027 
INPUT028 
INPUT029 
INPUT030 
I NPUT031 
INPUT032 
INPUT033 
INPUT034 
INPUT035 
INPUT036 


41 

FORMAT 

(Fll 

.4,F11.1) 

INPUT037 

42 

FORMAT 

(' 4 * 

,25X,F10.4,F10.1) 

INPUT038 

43 

FORMAT 

( ' 4 * 

,49X,F10.4,F10.1) 

INPUT039 

44 

FORMAT 

( • 4 « 

,73X,F10.4,F10.1) 

INPUT040 

49 

FORMAT 

( IX) 


INPUT041 

C 




INPUT042 

Q4444 

READ CONTROL FLAGS 

INPUT043 

C 




INPUT044 

c 

IFLAC=1 

TUREINE INLET PRESSURE INPUT 

INPUT045 

C444* 

= 2 

MAIN SHAFT SPEED INPUT 

INPUT046 

C 




INPUT047 

C4444 

JPBNT»1 

IF 

EVERY TIME POINT PRINTED 

INPUT048 

C4444 

= 2 

IF 

EVERY CTHEk POINT PRINTED 

INPUT 049 

0 




INPUT050 

C444* 

JFLAG*1 

IF 

SUCTION LINE WATERHAMMER SCLUTION IS TG BE USED 

INPUT051 

C444* 

= 2 

IF 

NO WATERHAMMER SOLUTION 

INPUT052 

C 




INPUT053 

(.4444 

KFLAG=1 

IF 

STEADY STATE CASE 

INPUT054 

(4444 

= 2 

IF 

TRANSIENT CASE 

INPUT055 

0 




INPUT056 

(4444 

JPLCT=0 

IF 

NO PLOTS 

INPUT057 

(4444 

= 1 

IF 

ALL TIME POINTS PLOTTED 

INPUT058 
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C**** 

c 

c«**« 

c 

c 

c 


c 

c 

c«**« 

€♦♦♦♦ 

c«**« 

c 


50 

c 

C*44* 

c 


«2 IF ChLY FRINTf:0 POINTS PLOTTED 
NFUtClO IF LAST CASE 

-0 IF NEXT CASE INVOLVES CHANGE OF CASE DATA ONLY 

»0 IF NEXT CASE INVOLVES NEW TUABOPUMP CHARACTERISTIC CURVES 

READ (5t5) IFLAGtJPRNTt JFLA6*KFLAG»JPL0TtNFLAG 

REAC TINE INCEPENCENT DATA 

READ 15,10) TNINT.TNAXtPATN ,N1 1 NT,QNM, TP II ,OTI NE , 0,XLI NE ,RN, RI , 
llNA,II,AI,ANf AME,XLOSS,FRI 

REAC TIME CEPENOENT DATA 

l«6 TUREINE INLET TEMPERATURE 
«7 TURBINE INLET PRESSURE 
*8 FAIN SHAFT SPEED 
1AAK PRESSURE 

DC 50 I«6,S 

REAC 15,15) J,(XT(I,N),YT(1,N),M«1,J) 

KII+A)=J 

IPAGE«6 

LIST CASE CATA 


150 

165 

170 

175 

180 

185 

190 

195 

200 

210 

220 

230 


NRITE 
MRITE 
IPATH , 
WRITE 
WRITE 
WRITE 
I«0 
I«i*l 
IF U- 
WRITE 
IF (I- 
WRITE 
IF II- 
WRITE 
IF II- 
WRITE 
IF II- 
IF II- 
mRITE 
GC TC 
RETURN 
END 


16,20 IM,I0,IY.IPAGE 

16,30) IFLAG,JFlAG.KFLAG,JPRNT, JPLOT,NFLAG,TMINT,TMAX, 
NIINT,CNN,TPII 


NIINT,CNN,TPII 

16.31) C,XL1NE.RM,RI.1NA,II 

16.32) A1,AN,ANE,XL0SS,FRI 
16,40) 


KUO)) 165, 

46.41) XTI6 
Kill)) 175, 

16.42) XTI7 
KI12)) lES, 

16.43) XTI6 
KI13)) 195, 

16.44) XTI9 
30) 210,230 
KUO)) ISC, 
16,49) 

150 


165,170 
,1),YT16.1) 
175,180 
,1),YTI7,1) 
185, 190 
,I),YTI8,1) 
195.200 
,1), YTI9«I) 
,230 
220,220 


INPUT0S9 
INPUT060 
INPUT061 
INPUT 062 
INPUT 063 
1NPUT064 
INPUT065 
INPUT 066 
INPUT 067 
INPUT068 
INPUT069 
INPUT070 
INPUT071 
INPUT072 
INPUT073 
INPUT074 
INPUT075 
INPUT076 
INPUT077 
INPUT078 
INPUT079 
INPUT 080 
INPUT081 
1NPUT082 
INPUT083 
1NPUT084 
INPUTO05 
INPUT086 
INPUT087 
INPUT088 
1NPUT089 
INPUT090 
INPUT 09 I 
INPUT092 
INPUT093 
INPUT 094 
INPUT095 
INPUT096 
INPUT097 
1NPUT098 
INPUT 099 
INPUT 100 
INPUTlOl 
INPUT 102 
INPUT 103 
INPUT104 
INPUT 105 
INPUT 106 
INPUT 107 
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C<*** FXMT£ ClfFERENCE SOLuUCN FGR SUCTIGA LINE WATERHAMMER 

SLEFCGTINE INLET ( DTIME . w 1 . ^2 .P 1 , P2 . SC V , S V, A I ,R ) 

G IREN SIGN hU2i,»i2(2) tPl(2J.P2I2l,Hl( 2) »H2(2) ,V1(2) »V2(2) 

**** CCRFLTE LAST TIRE POINT SOCTIGN LINE INLET HEAD 

Fin i = iAA,=*Pl(U>»SV 

^*** CCRPLTE PRESENT TIME FLINT SLCTICN LINE INLET HEAD 
FU2J = IAA.4P1{2 nSV 

CCRPLTE LAST TIRE POINT SUCTiLN LINE CISCFAROE HEAD 
F2(l J=1A^.*F2(1)*SV 

*4** CCRFLIE LAST TIME PGlNT SUCTiCN LINE INLET VELOCITY 
Vin ) = *»!( 1 HSV/AI + 14A, 

**** CCRPLTE LAST TIRE POINT SUCTION LINE CISCFARGE VELOCITY 
W2<1 J=N2Ui*SV/AI*144. 

♦ =»♦* CCRPLTE PRESENT TIME POINT SLCTICN LINE UlSCHARuE VtLCCITY 
V2(2)=N2(2i*SV/AI*144. 

CCRPLTE PRESENT TIME POINT SLCTICN LINE DISCHARGE HEAL 
F2(2J = him-SCV/22. 174*l V2(2)-V1( 1) )-R*Vl (I i*AflS ( Vl ( I ) ) 
**** CCRPLIE PRtSENT TIME PCINT SLCTICN LINE INLET VELOCITY 
Vl( 2 ) = V2( 1)-»22,174/S0V»(H1(2)-H2( 1)-R=*V2( lJ*AfiS( VZm ) i 
**** CCRPLTE PRESENT TIME POINT SCCTION LINE DISCHARGE PRhSSLRE 
P2(2I=F2I2)/144./SV 

**** CCRPLTE PRESENT TIME POINT SCCTION LINE INLET FLC« RATE 

rU 2)=V1(2 l♦AI/SV/144. 

RETURN 

END 


INLETOOl 

INLET002 

INLET003 

INLET004 

INLET005 

INLET006 

INLET007 

INLET008 

INLET009 

INLETOIO 

INLETOll 

INLET312 

INLET013 

INLET014 

INLET015 

INLET016 

1NLET017 

INLET018 

INLET019 

INLET020 

INLET021 
INLET022 
INLET023 
INLET024 
INLET025 
INLET026 
INLET027 
INLETD23 
INLET029 
1NLET030 
INLET031 
INLET032 
INLET033 
INLET034 
INLET035 
INLET036 
INLETn37 
INLET038 
INLET039 
INLET 040 
INLET041 
INLET042 
INLET043 
INL£T04‘t 
INLET045 
INLET046 
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C**** 

C**** 

c 


c 

c**** 

c**4* 

c**** 

c**** 

c**** 

c**** 

c**** 

c 


SUERCyTINE TABIN ♦♦♦♦ 

This SUBRCyTlKE COES SINGLE INTERPOLATION OF TABULATED DATA 

SLBRCLTINE TABIN (A.N«K,XT. YT*C« J.XMAXtXNlN) 

REAL MlNT.NCIAltlNA.il 
CIRENSICN XTf9.30).YT(9.30).K(l31 

XT IS THE INCEPENOENT ARRAY 
YT IS ThE CEPENCENT ARRAY 
A IS ThE INDEPENDENT VARIABLE 
C IS TEE CEPENCENT VARIABLE 
N IS THE TABLE TO BE INTERPOLATED 
J IS AN ERRCR FLAG 
K IS ThE TABLE SIZE ARRAY 


IF IN-5) 10.15.15 
C 

C**** SET RATABLE N SIZE 
C 


10 R»K(M 
GC TC ZO 
15 R«K(N6A1 

C 

SET >P1N»PIMMUM TABLE VALUE 
C 


20 XMIN»XT(N.l ) 

C 

C**** SET XPAX-MAXIRUM TABLE VALUE 
C 


XMAX«XT(N.P1 


TABINOOO 

TABlNOOl 

TABIN002 

TABIN003 

TAB1N004 

TAB1N005 

TAB1N006 

TABIN007 

TAB1N008 

TABlNOOf* 

TABINOlO 

TABlNOll 

TABIN012 

TABlN013*s 

TABIN014 

TAB1N015 

TABIN016 

TA6IN017 

TABIN016 

TA6IN019 

TABIN020 

TABIN021 

TAB1N022 

TABIN023 

TAB1N024 

TAB1N025 

TA81N026 

TABIN027 

TABIN028 

TABIN029 


50 

C 

C 

C 

C 

55 

C 

c**** 

c 

60 

c 

c**** 

c**** 

c 

70 

C 

c**** 

c 

80 

C 

c**** 

c 

90 


J»1 

1*0 

1 » 1*1 

SEARCh TABLE FOR VALUE CORRESPONC ING TO A 
IF (XTIN.II-Al 60.80.55 

TABULATED VALLE IS GREATER THAN A.TEST FOR MININUN TABLE VALUE 
IF(I-1I 2CC.200.9C 

TABULATED VALUE IS LESS THAN A.TEST FCR NAXIMUN VALUE 
IF (1-NJ 50.T0.7C 

N AX I NUN TABULATED VALUE IS *0R.A.1F FLOW PARAMETER CURVE USE 
NAXINUN FLCW PARAMETER. IF NOT FLOW PARAMETER CURVE. SET ERROR FLAG 

GO TC C60. 250. 80. 250. 250. 250. 250. 250. 2501 .N 

TABULATED VALUE « A. SET C« TABULATEC VALUE 

C-YTCN.Il 
GC TC 400 

INTERfCLATE FCR C 

C«YT(N,1-1 )«{A-XT(N.I-111/(XT(N. I1-XT(N.I-1II*( YT(N,ll-YT(N,l-in 
GO TC 400 


TAB I NO 30 
TABIN031 
TA6IN032 
TABIN033 
TAB1N034 
TABIN035 
TABIN036 
TA8IN037 
TABIN038 
TABIN039 
TA6IN040 
TA6IN041 
TABIN042 
TA6IN043 
TABIN044 
TABIN045 
TABIN046 
TABIN047 
TAB1N048 
TAB1N049 
TABIN050 
TABIN05L 
TAB1N052 
TAB1N053 
TABIN054 
TABIN055 
TABIN056 
TABIN057 
TABIN058 
TABIN059 
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C TABIN060 

MINIMUM TAEULATEC VALUE IS GREATER THAN A TABIN061 

C TABIN062 

2C0 J=2 TABIN0G3 

GC TC AGO TA8IN064 

C TABIN065 

RA/U-LM TAELLATEC value is less than a TABIN066 

C TABIN067 

250 J=3 TABIN068 

AGO HETLPA TABIN069 

fcNC TABIN070 
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StefiCUTINE TilBP ♦♦♦♦ 

€♦♦♦♦ This SU8RQUT1NE iS USED FUR OCUBLE INTERPOLATION OF TABULATED 
€♦♦♦♦ PUMP AND INCUCER DATA 

C 

SUBRCLTINE TA8P ( OH.&tNt K«L« ZPtXP .YPt C* JFLGf XMINtXHAX ) 

REAL MINT.NCIAItINAf li 
CIMENSICN CP(2I 

OINENSICN Ka3ltL(4J,ZP(4«101.XP(A,aC).YPI4.10t30I 

C 

IP ANC XF ARE THE INDEPENDENT ARRAYS CF NPSH/N**2 ANO Q/N DATA 
€♦♦♦♦ RESPECTIVELY 

€♦♦♦♦ YP IS ThE CEFENOENT ARRAY OF NORMALIZED HEAD RISE ANO EFFICIENCY 
€♦♦♦♦ OH ANO ti ARE THE INDEPENDENT VARIABLES NPSH/N**2 ANO Q/N 

RESPECTIVELY 

C*«*4 C IS THE CEPENOENT VARIABLE 0EL-H/N**2 OR EFFICIENCY 
C4*** N IS THE TABLE TO BE INTERPOLATED 
€♦♦♦♦ JFLG IS AN ERROR FLAG 
€♦♦♦♦ K IS THE TABLE SIZE ARRAY 

C 

JFLG»1 

C 

c**** SET IY«NUM6ER OF NPSH/N*»2 CURVES 

C 

iY=LIM 

C 

SET iX>NUMBER OF Q/N POINTS 
C 

IX»K4N+4) 

C 

C*=*** SET XHIN«MINIMUM TABULATED Q/N 

C 

XMIN«XP(Nt 1 ) 

C 

£♦♦♦♦ SET XMAX*MAXIMUM TABULATED Q/N 

C 

XMAX«XP(N>IX) 

1=0 

50 I-I+l 

C 

C**** SEARCH NPSH/N**2 TABLE FOR VALUE CORRESPONDING TO OH 

C 

IF (ZP(N,n~CHj E0t6O,55 
C 

C**** TABULATED VALUE IS GREATER THAN OHtTEST FCR MINIMUM TABLE VALUE 

C 

55 IF II-ll 8C«fi0»150 

C 

£♦♦♦♦ TABULATED VALUE IS LESS THAN OH, TEST FOR MAXIMUM TABLE VALUE 

C 

60 IF I I-IY) 50,80,60 
C 

C**** TABULATED VALUE*DH 

£♦♦♦♦ CR TABULATED VALUES ARE ALL GREATER THAN OH, USE MINIMUM CURVE 
C4*** OR TABULATED VALUES ARE ALL LESS THAN OH, USE MAXIMUM CURVE 
C 

•80 J=0 
65 J*J+l 
C 

€♦44* SEARCH Q/N TABLE FOR VALUE CORRESPONDING 10 Q 

C 


TABP 000 
TABP 001 
TABP 002 
TABP 003 
TABP 004 
TABP 005 
TABP 006 
TABP 007 
TABP 008 
TABP 009 
TABP 010 
TABP Oil 
TABP 012 
TABP 013 
TABP 014 
TABP 015 
TABP 016 
TABP 017 
TABP 018 
TABP 019 
TABP 020 
TABP 021 
TABP 022 
TABP 023 
TABP 024 
TABP 025 
TABP 026 
TABP 027 
TABP 028 
TABP 029 
TABP 030 
TABP 031 
TABP 032 
TABP 033 
TABP 034 
TABP 035 
TABP 036 
TABP 037 
TABP 038 
TABP 039 
TABP 040 
TABP 041 
TABP 042 
TABP 043 
TABP 044 
TABP 045 
TABP 046 
TABP 047 
TABP 048 
TABP 049 
TABP 050 
TABP 051 
TABP 052 
TABP 053 
TABP 054 
TABP 055 
TABP 056 
TABP 057 
TABP 058 
TABP 059 
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c 

C 

50 

c 

c ^ * =4 * 
c 

51 
C 

C 

ICC 

t 

4 SS <13> 

c 

lie 


C 

c « *** 

c * * * * 
c 

lie 


155 

C 

C >M * A 

c 

c 

c 4 * ^ ♦ 

c 

uc 

c 

C>s«** 

c 

U5 

c 

c 

170 

C 

c 

17 5 

16C 

C 

C =» 4 * i> 

c 

c 

c 
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IP <>PtNfJ)-C) 95,100,90 


TABP 

OoO 



TA8P 

061 

TAEtLATEO \(ALO£ IS OKtATER THAN U,TES1 FOB MINIMUM TAbLE 

VALUE 

TABP 

062 



TABP 

063 

IF (J-IJ 3CC,3CC,110 


TABP 

064 



TABP 

065 

taeulateu value is less Than u.test for maximum table value 

TAbP 

066 



TABP 

067 

IF U-IX) £5,35C,350 


TABP 

068 



TABP 

069 

TABULATED VALUE=C,SET C=TABULATED VALUE 


TABP 

070 



TAbP 

071 

C=YPIN,I, JJ 


TAbP 

072 

GL TC 50C 


r Afap 

073 



TABP 

0 74 

A SiPULE NPSF/N**2 IS BEING U SED , IN TERFCL ATE FUR C 


TABP 

07 5 



TABP 

076 

C = Vf IN,I, J-1 )4((,-XP(N. J-in/IXPlN,J )-XP(N ,J-1 )!♦( YPIN ,I , 

J)- 

TABP 

077 

lYPIN, I, J-1 ) ) 


TAbP 

078 

GU K 5CC 


TABP 

D79 



TABP 

080 

LF LlEA BETWEEN TwU CURVES UF CONSTANT NP SH/N**2 , INTERPOLATE AlGNUTABP 

OBI 

EACF CURVE LF NPSH/N**2 FUR PROPER C/N 


TABP 

082 



TABP 

083 

CC leC IK=1,2 


TABP 

084 

JK=lK-H-2 


TABP 

08 5 

J=G 


TABP 

086 

J = J+1 


TABP 

087 



TAbP 

088 

StABCh u/N TABLE FUR VAlUE CURkE SPCNO ING TU W 


TABP 

089 



TABP 

090 

IF (XPIN,JJ-C) 165,170,160 


TABP 

091 



TAbP 

092 

TAELLATEL value is greater than g,TESl FUR MINIMUM TABLE 

VALUE 

TABP 

093 



TABP 

094 

IF (J-1) 3CC,20C,175 


TAbP 

095 



TAbP 

096 

TAEULATEO VALUE IS LEiS THAN w,TEST FCR MAXIMUM TAbEE VALUE 

TABP 

097 



TABP 

098 

IF (j-IX) 155,350,350 


TABP 

099 



TABP 

100 

TAtULATEC VALUE=t,SET CP=TABULATEU VALUE 


TABP 

101 



TABP 

102 

CF ( 1X)=YP(N, JK, J) 


TABP 

103 

60 TC 18C 


TAbP 

104 



TABP 

105 

INTERFCLATE FCR CP 


TABP 

106 



TABP 

107 

CPI II<) = YF(N,JK,J-l)+(g-XP(N, J-1) )/( XP IN , J )-XP (N , J-1 ) ) ♦( YPIN, JK, J) 

-TABP 

108 

1YPIN,JX,J-D) 


TABP 

109 

CONTINUE 


TABP 

110 



TABP 

111 

INTERPOLATE FCR C USING CPU) AND CPI2) 


TABP 

112 



TABP 

113 

C=CPI 1) + (CF-ZPIN,I-1) )/(ZPI N,I)-ZP(N, I- 1 ) )♦ IC PI 2 )-C P I 1 ) ) 


TABP 

114 

GC TC 500 


TAbP 

115 



TABP 

116 

MINIMUM TAECLATEC VALUE IS GREATER THAN G,SET ERRCR FLAG 


TABP 

117 



TABP 

118 
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300 JFL6«2 TABP 119 

6C TC 500 TABP 120 

C TABP 121 

C«««* KAXIPUM TACLLATEC VALUE IS LESS THAN Q.SET ERROR FLAG TABP 122 

C TABP 123 

350 JFLG»3 TABP 124 

500 RETURN TABP 125 

ENC TABP 126 
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C«=(.«4> SLEHCLT INE SHPIN ♦♦♦♦ SHPINOOO 

This PHCiGHAF CGHPLTES INDUCEH SHAFT PCKER AS A FUNCTiCN OF SPEED SHPINOOl 
+ FuR /SLL TABULATED Q/N BASED ON A GIVEN FLOW RATE AND NPSH/N**2( DH)SHPIN002 
THIS SLBRCUllNE REQUIRES THAT INDUCER EFFICIENCY AND NORMALIZED SHP1N003 
htAC EE TAEULATEC FOR THE SAME Q/N POINTS SHPINOOA 

CCRRESPCNCING SPEED AND POWER POINTS ARE STORED IN THE YT AND XT SHPIN005 
C**** ARRAYS RESPECTIVELY SHPIN006 

C SHPINOOT 


SLERC 

UTIN 

E SFP IN 

(MP, 

U , DH , K , L 

,ZP,XP,YP, 

XT 

HEAL 

NUN 

T,NCI4 I , 

IMA, 

II 



CIMEhSICN 

ChN2(30 

) ,EATI 30) 



C IMEN 

SIGN 

K(131,L 

I 4 ) , 

ZP(4,10) 

,XP(4,30 )t 

YP 

IXTI 9, 

30) , 

VT 19,30) 





K(9 ) = 

K(8 ) 







I Y = H3) 
IX=K(7i 


tYT) 

(A»I0,30It 


SHPIN008 
SHPIN009 
SHPI N910 
SHPINDll 
SHPIN012 
SHPIN013 
SHPIN'^14 
SHPIN015 


1=0 

bQ 1 = 1+1 


SHPIN016 

SHPIN017 


C 

C 

c 

c 

c 

c 


**=*'■» SEARCH NPSh/N**2 TABLE FOR VALUE CORRESPONDING TO OH 
IF (iPt3,n-Chl tC,80,55 
««=«=» TAELLATEC VALtE GREATER THAN CH 
5S IF n-U 80,60,150 
+ TAEglATEO VALUE LESS THAN DH 
60 IF n-lYj 5C,6Q,eC 
TAELLATEC VACUE = Ch 

CH TAEULAIEC VALUES ARE ALL GREATER THAN CH,USE MINIMUM CURVE 
CR TAEULATEC VALUES ARE ALL LESS THAN DH,LSE MAXIMUM CURVE 

EO DC 85 J=1,I> 

SET LP CNE DIMENSIONAL ARRAY, OHN2, CF OELh/N**2 POINTS 
ChN2(Jj=YPI3,i,JJ “ 

**** SET Lf CNE CIMENSICNAL ARRAY, EAT, CF EFFICIENCY POINTS 

65 EATU)=YP(4,I,J) 

GC TC 200 
15C IJ=I+2 
IJ=1+1 

CC ISO J=1,IX 

**** INTERFCLATE FcR CNE DIMENSIONAL ARRAY ,DHN2, OF DELH/N»*2 POINTS 

CHN2( Ji=YF(2,I-l, JI+(DH-ZP<3, I-l) ) / ( ZP( 3 , I )-ZP( 3 , I-l ) )*(YP(3,I, J) 
1-YP(3,I-1, J)I 

INTERFCLATE FCR ONE DIMENSIONAL ARRAY , EAT, OF EFFICIENCY POINTS 

190 EATUi = YP(4,I-l, Ji*(DH-ZPI3.I-in/(ZP(3,I )-ZP ( 3 , I-l )) ♦( YP (4 , 1 , J ) 
1-YP(4,I-1, JJ ) 

2CQ LC 25C J = l, IX 


C 


SHPIN018 

SHPIN019 

SHPIN020 

SHPIN021 

SHPIN022 

SHPINnZ3 

SHPINH24 

SHPIN025 

SHPINn26 

SHPIN027 

SHPIN028 

SHPIN029 

SHPIN030 

SHPIN031 

SHPIN032 

SHPIN033 

SHPIN034 

SHPIN035 

SHPIN036 

SHPIN037 

SHP1N038 

SHPIN039 

SHPIN040 

SHPIN041 

SHPIN042 

SHPIN043 

SHPIN044 

SHPIN045 

SHPIN046 

SHPIN047 

SHPIN048 

SHPIN049 

SHPIN050 

SHPIN051 

SHPIN052 

SHPIN053 

SHPIN054 

SHPIN055 

SHPIN056 

SHPIN057 

SHPIN058 

SHPIN059 
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C4*** 

START CALCULATIONS WITH MAXIMUM TABULATED Q/N WHICH 

GIVES MINIMUM SHPIN060 

C*4** 

POWER 

SHPIN061 

c 


SHP1N062 


M»IX-J^l 

SHPIN063 

c 


SHPIN064 

C4*4* 

TEST C/MtlF 0 SET N«1NFINITY AND POWER-0 

SHP1N065 

c 


SHPIN066 


IF (XP(3«Mi) 210,210,220 

SHPIN067 

210 

YTi5,JI-l.0E+70 

SHPIN068 


XT(5,J)>0.0 

SHPIN069 


GC TC 250 

SHPIN070 

C 


SHPIN071 


G/N IS NON ZERO, COMPUTE N«Q/(Q/Ni 

SHPIN072 

c 


SHPIN073 

220 

YT(5,J)>G/XP(3,M) 

SHPIN074 

C 


SHPIN075 


TEST EFFICIENCY, IF 0 SET POWER-0 

SHPIN076 

C 


SHPIN077 


IF (EATIM)) 230,230,240 

SHPIN078 

230 

XT (5,JI«0.0 

SHPIN079 


GO TC 250 

SHPIN080 

C 


SHPINOai 

C**4* 

EFFICIENCY IS NON ZERO.COMPUTE POWER 

SHP1N082 

c 


SHPIN083 

240 

XT(5,J)«WP«CF.N2(M)/EAT(Hi/5S0.*YT(5,J)*«2 

SHPIN084 

250 

CONTINUE 

SHPIN085 


RETURN 

SHPIN086 


END 

SHPIN087 
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SLBHCtT INE PRATC ♦♦♦* PRATUOOO 

This SE8RCUTINE IS USED TD DETERMINE AN APPRDXIMATE INITIAL MAIN PRATOnoi 
C44** TURBINE PRESSURE RATu BASED UN PUMP PCWER t TURBINE INLET TENP . 1 PRAT0002 
back PRESSURE, ANC SPEED PRATU003 

C PRATOnOA 

SEBRCUTINE PRATC ( SHPPM, T, P, U,G,CP, C T »XT , YT ,K ,PKF ,PARMN , PARMX ,UCO , PRATGOO 5 


IJ) 

C IP EASIER XTIS,3C),YT(9,30) ,PR(50),K(13) 

C={ (G-1. J/U) 

1 = 0 

ICO 1=I+1 

lAKfc PRESSURE RAT IC FROM TABLE 
f R( I J=XT( 1, 1 i 

**** USE CURRESFCNCING FLOW PARAMETER 

AFTER MAXIMUM TABULATED PRESSURE RATIO IS REACHED .INCREASE 
4=4#* pressure RATIC by a factor of 1.2 

FP=YT(l,i i 
GU TC 105 
102 I = U1 

PR( I1=1.2*F«(1-1) 

105 1F(PR(I)-1.) 106,106,107 

**** FUR PRESSURE RATIC=1.,SET PGbER ECUAL TC C. 

1C6 SF,PF = 0. 

GC TC 151 

CCMPUTE IDEAL ENTFALPY DROP 

1C7 DhI = CP*T+(l.-a./FR(l n*#ci 
CU=SCRT(CT*ChI I 
UCC=U/CC 

INTERFCLATE fur MAIN TURBINE EFFICIENCY 

CALL TABIN I LCD , 2 , K, X T , YT , E AT , J , PARMX ,P AR MN ) 

GC TC m0,3CC,15H,J 

CCMPUTE ACTUAL ENTHALPY DROP 

110 CF=CF1*£AT 

44 «* TUREINE INLET TCTAL PRESSURE 


PRATUU06 
PRATOOnT 
PRAT0008 
PRAT0009 
PRATOaiO 
PRATOOll 
PRAT0012 
PRAT0013 
PRATUOIA 
PKAT0015 
PRATU016 
PRAT0017 
PRATOOI0 
PRATU019 
PRAT0020 
PRAT0021 
PRATU022 
PRAT0023 
PRAT0024 
PRATU025 
PRATU026 
PRATU027 
PRAT0028 
PRATU029 
PRAT0030 
PRATU031 
PRAT0032 
PRATU033 
PRAT0034 
PRAT0035 
PRAT0036 
PRAT0037 
PRAT0038 
PRAT0039 
PRAT0040 
PRATQ041 
PRAT0042 
PRAT0043 
PRATU044 
PRAT0045 
PRAT 0046 


FTTi=P*PR(I) 

TURBINE FLCR RATE 
rT=FF*PTTI/SGRT(T J 

**** turbine pcrer 

SFP=RT«CF*7 76* 16/550. 

COMPARE TURBINE PCRER wITH PUMP PCMER 


PRATU047 

PRAT0048 

PRAT0049 

PRAT0050 

PRAT0051 

PRAT0052 

PRATU053 

PRATU054 

PRAT0055 

PRAT0056 

PRAT0057 

PRATQ058 

PRAT0059 
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IF IShP-ShFFFI 150,250«200 
SHPF«SHP 

TfcST FOR EUC CF TABLE 

IFC1-K41)) lOO.lSStlSS 

TEST FOR 5C PGIMS 

iFIl-SOI 102.30C.300 
IF (I-n 21C.210.220 

TURBINE PCliER IS GREATER THAN PUMP PCliER FOR MINIMUM 
PRESSURE RATIO. INTERPOLATE FOR PRESSURE RATIO 

PRF*(Pfi(I l-l.OI/SHP*! SHP-SHPPMI 
GO TC 300 

TURBINE PGNER IS GREATER THAN PUMP POMER. INTERPOLATE 
RATIO 

PRF-PRm+IPRCIi-PRC I-in/I SHP-SHPFI*IShP-SHPPMI 
GO TC 300 
PRF«FRU I 
RETURN 


PRAT0060 
PRAT0061 
PRAT0062 
PRAT0063 
PRATQ064 
PRAT0065 
PRAT0066 
PRAT0067 
PRAT0068 
PRAT0069 
PRAT0070 
PRAT0071 
TABULATED PRAT0072 
PRAT0073 
PRAT0074 
PRAT0075 
PRAT0076 
PRAT0077 
FOR PRESSURE PRAT0076 
PRAT0079 
PRAT0080 
PRAT0081 
PRAT0082 
PRAT0083 
PRAT0084 


thC 


PRAT0085 
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C ♦ 

c * ♦ ♦♦ 

c^*** 

c ♦ * *♦ 

C=#4*<' 

c 


c 

(_4 

=» ** 
c ♦ * 

C <4** 

C 4 * 
C4444 
C4 444 
C4 444 
t 4 4 4 4 
C 4 444 
C 4 444 
C4444 
C4444 
C4444 
C 4444 
C4444 
C4 444 
C4444 

C 


4444 


4444 


5G 

4444 


4 4 4 4 

55 

4 4 44 

fcO 

4 4 44 


ScERCtriNE hPRCP 4444 

This SU8RL0TINE PROVIDES THE FULLDHING HYCR0G6N PROPERTIES DATA 
THE PAIR PREGRAMO 

SLCTTCN LIRE SPMC VELOCITY AS A FUNCTION OF TEMPERATURE AND 
PR ESSORE 

INCLCER INLET SPECIFIC VOLUME AS A FLNCTICN OF TEMPERATURE AND 

PRESSURE 

POMP INLET SPECIFIC VulOME AS A FUNCTION CF TEMPERATURE AND 
PRESSURE 

SCBRCLTINE hPROP ( A, b , Y t X «K J * K«N » P, C« Ct JFLG*XMINt XMAK ) 

LIMENSiCN X(25,3G),Y( 25,301 ,NI 25) ,P(25) ,CPI2J tD(9,8) 

P IS THE PRESSURE ARRAY 
X IS TFE INDEPENDENT PROPERTY ARRAY 
Y IS THE DEPENDENT PROPERTY ARRAY 
N IS TFE CF CATA POINTS FOR EACH ISOBAR ARRAY 
A IS PRESSLRE 

B IS TFE SECCNC INDEPCNDENT VARIABLE 
Kj DETERMINES THE INDEPENDENT PARAMETER USED 
KJ=l,d IS TEPFERATURE 

KJ NCT = 1,E IS SPECIFIC VOLUME , ENTHALP Y, EMROP Y CR SONIC VELOCITY 

K DETERMINES TFE DEPtNDENT PARAMETER REUOESTED 

K=1,C IS TEMPERATURE 

K=2,C IS SPECIFIC VOLUME 

K=3,C IS ENTFALPY 

K=A,C IS ENTPCPY 

K = 5,C IS SCMC VELOCITY 

C IS TFE RECCESTED DEPENDENT PROPERTY 

D IS TFE ARRAY CF EMPIRICAL CONSTANTS USED IN THE SATURATED 
PRESSURE SUEPRCGRAM SV5C 


HPROPOOO 

TUHPkOPOOl 

HPR0P002 

HPRUP003 

HPROP004 

HPR0P005 

HPROPv006 

HPR0P007 

HPR0P008 

HPROP009 

HPROPOlO 

HPkOPOll 

HPRQPA12 

HPROP013 

HPRQPA14 

HPR0P015 

HPROPAIS 

HPRQP017 

HPRUP018 

HPRUP019 

HPRUP020 

HPROP021 

HPR0PA22 

HPRQP023 

HPR0P024 

HPR0P025 

HPR0P026 

HPROP027 

HPRCPA28 

HPRUP029 

HPR0P030 


Jf LG= 1 


HPR0P031 

HPR0P032 


1 = 0 

LlMiT=0 

SET >MIN=MINIMUM TABULATED PRESSURE 
XMIN=P( 1 ) 

SET >MAX=MAXIMUM TAbULATED PRESSURE 

XMAX=F (25 ) 

1=1 + 1 

SEARCH PRESSURE TABLE FOR VALUE CORRESPUNCING TU A 


HPR0P033 

HPR0Pn3A 

HPR0P035 

HPR0P036 

HPR0P037 

HPBCP038 

HPR0P039 

riPROPOAO 

HPR0PA41 

HPRUP042 

HPR0P043 

HPRUP044 

HPR0P0A5 


IF(P(IJ-A) ec,eo,55 
TAEULATEC PRESSURE IS 
IF (I-l) 2CC, 200,150 
TAEULATEC PRESSURE IS 
IF { 1-25) 50,250,250 
TABULATED FRESSUR£=A 


HPR0P046 

HPROPOA7 

HPR0P048 

GREATER THAN A, TEST FOR MINIMUM TABLE VALUE HPRQP049 

HPR0P050 

HPRUP051 

HPR0P052 

LESS THAN A, TEST FOR MAXIMUM TABLE VALUE HPR0P053 

HPRDP054 

HPRGP055 

HPROP056 

HPRJP057 

HPR0P058 
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80 

C 

c**** 

c 

c 

£ 


E5 

C 

C 

c 

c 

so 

c 

c 

S5 

c 

O’#*** 

£ 

ICC 

c 

C4*5»* 

c 

110 

c 

£♦♦♦♦ 

c 

150 


c 

c 

c 

£♦♦♦♦ 

C 

155 

C 

£«♦♦♦ 

€ 

C 

c 

160 

C 
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SET XHIMFIMMUM TABULATED INCEPENOEHiT PROP. 

XRlN>Mlf 1) 

SET XRAX>MAXIRUM TABULATED INDEPEKDENT PROP. 

XMAX«X(I.PI 

J=0 

SEARCH INOEPENOENT PROPERTY TABLE FOR VALUE CORRESPONDING TO B 
IF (XCltJJ-ei S5. 100.90 

TABULATED PROP. IS GREATER THAN B.TEST FOR MINIMUM TABLE VALUE 
IF I J-1) 3CC, 3CC.no 

TABULATED FRCP. IS LESS THAN B.TEST FOR MAXIMUM TABLE VALUE 
IF U-M) 85.250.350 

TABULATED PRCP*E,SET C»TABULATEO VALUE 

C*YII. J» 

GO TC 500 

INTEFPCLATE ALONG ISOBAR 1 FOR C 


MPR0P059 

HPROP060 

HPR0P061 

HPRQP062 

HPROP063 

HPR0P064 

HPR0P065 

HPR0P066 

HPR0P067 

HPR0P068 

HPR0P069 

HPROP070 

HPR0P071 

HPRQP072 

HPR0P073 

HPR0P074 

HPR0P075 

HPROP076 

HPR0P077 

HPROF078 

HPR0P079 

HPROP080 

HPRQP081 

HPR0P082 

HPR0P083 

HPR0P084 

HPR0P085 

HPR0P086 

HPR0P087 

HPR0P088 

HPROP089 


C»YU, J-IHIB-XII ,J-in/(XII. J»-X(l,J-l ))♦( Y( I, J)-Y(I ,J-in HPR0P090 

GO TC 500 HPR0P091 

HPROP092 

A LIES BETREEN TRO TABULATED ISUBARS. INTERPOLATE ALONG EACH I S0BARHPR0P093 
FOR PROPER 8 HPR0P094 

HPR0P095 


NM«1-1 

CO 1£C IK«NM.I 
M*MIK1 
JK=IR-I+2 
J=0 

SET >MIN«MINIMUM TABULATED INDEPENDENT PROP. 

XMlN-X(IK.l) 

SET >MAX«MAX1MUM TABULATED INDEPENDENT PROP. 

XMAX«X(IK.M) 

JsJ+1 

SEARCH INOEFENDENT PROPERTY TABLE FCR VALUE CORRESPONDING TO B 
IF IMlR.Ji-e) 165.170.160 

TABULATEC PROP. IS GREATER THAN B.TEST FOR MINIMUM TABLE VALUE 
IF (J-ll 300,300,550 


HPR0P096 
HPRQP097 
H PROP 09 8 
HPR0P099 
HPROPlOO 
HPROPlOl 
HPR0P102 
HPR0P103 
HPRQP104 
HPRQP105 
HPR0P106 
HPROP107 
HPR0P108 
HPR0P109 
HPROPllO 
HPROPlll 
HPRQP112 
HPR0P113 
HPR0P114 
HPR0P115 
HPR0P116 
HPR0P117 
HPR0P118 
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tabllaieu pflp. is less than 8,TEST for maximum table value 

c 

Its IF ( J-M IKl) 155,510t510 

^4** IABLLATEO VALUE=E,SET CP=TABULATEi: VALUE 

170 CPI JKI=YUK,Jl 
GC TC 180 

44 ** f'AXIFUM TAEULATEC VALUE IS LESS THAN e,IF ISOBAR LESS THAN A SET 
**** LiMll=l AND CLNTINUEtIF ISOBAR GREATER THAN A SET ERROR FLAG AND 
RETLFN 

51C IF UK-il f 20,52C,350 

5 2C Gif' II = 1 

GC TC lao 

**** CHECK LIMIT SEI=1 
550 IF (LiMiTJ 175.175,600 

**** L1M1T=0,NCPPAL INTERPOLATION SEGUENCE ON ISOBAR 

175 CPIJKi=YI iK,J-l)+<B-X(IK.J-l)l/(X(IK, J)-X (IK, J-1) J* 

II Y( IK.JJ-YIIK, J-in 
leC CONTINUE 

**** NORMAL INTERFCLAT ICN FOR C 

c=cpn)4(A-f ( i-in/iP( ii-pi i-ui*icp( 2 )-cpi 1 ) ) 

GC TC 500 

**** LIM:IT = 1, CHECK FCR TEMPEKATURE AS INDEPENDENT PROPERTY 
6GC IF IKJ-1) 35C.61C.350 

**** IEMPERATURE is INDEPENDENT PROPERTY ,F INC CORRESPONDING VAPOR 
**** PRESSURE 

610 PSL = VPFUMEI 

GC TC 1620,620, 630, 640, 645), K 

**** find STAURATED LICUIU spec. VOL. CORRESPONDING TO T£MPERATURE=B 

62G CPI 2 J = SVSLIE,t) 

GC TC 650 

**** FIND SATURATED LIUUIU ENTHALPY CORRESPONDING TO TEMPE RATURE=b 

6 20 CPI 2 )=-17.4e56 8“6.6C8043*B+.11245 45*e**2 

GC TO 650 

**** FIND SATURATED LIQUID ENTROPY CORRESPCNOI NG TC TEMPERATURE=B 

640 CFI2J=1.644557-.C3544848*B+.00lia22l24B**2 
GC TC 650 

***4 SET SATURATED LIQUID SONIC VELOCITY 


HPR0P119 

HPR0P120 

HPRQP121 

HPROP122 

HPKOP123 

HPRUP124 

HPROP125 

HPR0P126 

HPROP127 

HPRQP128 

HPR0P129 

HPROP130 

HPKOP131 

HPROP132 

HPROP133 

HPROP134 

HPHOP135 

HPROP136 

HPRQP137 

HPRUP138 

HPROP139 

HPR0P140 

HPR0P141 

HPRQP142 

HPR0P143 

HPR0PI44 

HPR0P145 

HPR0P146 

HPR0P147 

HPKOP148 

HPR0P149 

HPR0P159 

HPRUP151 

HPRUP152 

HPRQP153 

HPROP154 

HPROP155 

HPK0P156 

HPR0P157 

HPROP158 

HPROP159 

HPKUP160 

HPROP161 

HPR0P162 

HPROP163 

HPR0P164 

HPROP165 

HPRUP166 

HPROP167 

HPROP168 

HPROP169 

HPROP170 

HPROP171 

HPROP172 

HPROP173 

HPK0P174 

HPRCP175 

HPR0P176 

HPRUP177 
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645 CP(2)«3940« 

C 

€♦♦♦♦ IKTEFCLATE FCR CF CN ISOBAR GREATER TFAN A 

C 

c 

€♦♦♦♦ INTEFCLATE FCR C USING SATURATED COMO IT IONS 

C 

C»CPCU4lA-PUII*ICPt2l-CP(llI/IPSL-Pmi 

GC TC 500 
C 

i**** RlhlPUM TAEULATEC PRESSURE IS GREATER THAh A, SET ERROR FLAG 

C 

2C0 JFLG«2 

GC TC 500 

**** MAXIRUM TAEULATEC PRESSURE IS LESS THAN A»SET ERROR FLAG 


250 JFLG»3 

GC TC 500 

**** MINIMUM TABULATED INOEPENOENT PROP. 
**** FLAG 

300 JFLG*4 

GO TC 500 

«««« MAXIMUM TAEULATEC INOEPENOENT PROP* 

350 JFLG»5 
500 RETURN 
END 


HPR0P178 
HPR0P179 
HPR0P180 
HPR0P181 
HPR0P182 
HPR0P183 
HPRQP184 
HPR0P185 
HPR0PI86 
HPROP187 
HPR0P188 
H PROP 189 
HPR0P19© 
HPR0P191 
HPRQP192 
HPR0P193 
HPR0P194 
HPR0P195 
HPR0P196 
HPR0P197 
HPR0P198 

IS GREATER THAN BtSET ERROR HPR0P199 

HPROP200 

HPR0P201 

HPR0P202 

HPR0P203 

HPR0P204 

IS LESS THAN B,SET ERROR FLAG HPR0P205 

HPR0P206 

HPR0P207 

HPR0P208 

HPR0P209 
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L**** SLBHCtriNE bi8MMA ♦♦♦* 

This SU8PRLGBAM FftOVlOfcS SPECIFIC HEAT RATIO CATA TO THE MAIN 
C**** PBCCRAM FCR FYCRCGEN GAS 
C 

FUNCTICN GAMPA(T,PJ 

**** TEST FCK A6SCLUTE TEMPERATURE LESS THAN IlOO QEG-R 
IF (T-llOC.) 50,50,100 

**** TEMfERATUFE IS LESS THAN HOC DEG-R, COMPUTE COEFFICIENTS AS A 
**** FUNCTICN lF PRESSURE 

50 Cl=i. 273746. 286E-05+P 

U2=l.CE-034(C.2a76-1.32E-Q4*PI 
C3=1.0E-Cfc4 (“0.16446. 92E-05*P) 

GC TC 150 

**** TEMPERATURE IS isREATER THaN ilCO DEG-R, CQMPUT E COEFFICIENTS AS A 
4*** FUNCTICN LF PRESSURE 

ICO C1=1.4C3241.C5E-C5*P 

C2=1.0E“C5*(C.62S-1.49E-03*PI 

C3=1.0E-07*(-C.1C7444.4E-05*P) 

C 

C**** CLMPLTE GAMMA 
C 

150 GAMMA=Cl4C2<T4C34T**2 
RETURN 
ENC 


GAMMAOOO 

GAMMAOOl 

6AMMA002 

GAMMA003 

GAMMA004 

GAMMA005 

GAMMA006 

GAMMA007 

GAMMA006 

GAMMA009 

GAMMAOlO 

GAMMAOll 

GAMMA012 

GAMMA013 

GAMMA014 

GAMMA015 

GAMMA016 

GAMMA017 

GAMMA018 

GAMMA019 

GAMMA020 

GAMMA021 

GAMMA022 

GAMMA023 

GAMMA024 

GAMMA025 

GAMMA026 

GAMMA027 

GAMMA028 

GAMMA029 
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FUNCTiCh SUePROGRAM CP «*«« 




CP 

000 


This SUePRCGRAM PROVIDES CONS f ANT PRESSURE 

SPECIFIC HEAT DATA 

TO 

CP 

001 

£♦♦♦♦ 

THE PAIN PRCGRAM FOR HYOROGEN GAS 




CP 

002 

C 





CP 

003 


FUNGI ICN CP ITfPt 




CP 

004 

£ 





CP 

005 

(,**** 

TEST FOR AGSCLUTE TEMPERATURE LESS THAN SCO 

1 OEG-R 



CP 

006 

C 





CP 

007 


IF n-eoo«) so 1 50 1 100 




CP 

008 

c 





CP 

009 

£♦♦♦♦ 

TEPPERATURE IS LESS THAN 800 DEG-RtCOPPUT E 

COEFFICIENTS AS 

A 


CP 

010 

£♦♦♦♦ 

FUNCTION CF PRESSURE 




CP 

Oil 

C 





CP 

012 

50 

C1«4.6S62+2.18£-C4*P 




CP 

013 


C2«-1.0E-C2A(0,3179+4.853E-05*PI 




CP 

014 


C3»l*0E-Q5*(0,2O51+2.8£-O5*PI 




CP 

015 


GO TC 150 




CP 

016 

C 





CP 

017 

C*4>*4> 

TEMPERATURE IS GREATER THAN 800 DEG-R, COMPUTE COEFFICIENTS 

AS 

A 

CP 

018 

Q*4** 

FUNCTION CF PRESSURE 




CP 

019 

C 





CP 

020 

100 

Cl»3.5628*4.A53E-05*P 




CP 

021 


C2«-l. 0E-C3*I0. 2151*4. 773E-05*PI 




CP 

022 


C3* 1.0E-C64(C. 125 85*1. 293E-05*PI 




CP 

023 

c 





CP 

024 


COMPOTE CP 




CP 

025 

c 





CP 

026 

150 

CP»C1*C2*T*C3*T**2 




CP 

027 


RETURN 




CP 

028 


ENC 




CP 

029 
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PtNCllLN SUfcPRCiGJiAM iVSL 

This SUtiPRCGBAM IS UStU TU CUMPUTt SATURATED LIUUID SPECIFIC 
VCLCRt FOR FVCRCGEN 
C 

FOM.TILA SVSUTfAJ 
tlPthSlLN A(9,8) 

C 

r= T tFPERATURt IN D£0-k 

TL = C If FtRtRCE afcTkiEtN LKITICAL AND FoOlU TEMPERATUHES ,DEG-K 
critical TERF£RATUR£=32.976 UEG-K 
C 

TL = 32.976-T/Ua 
r!HCC = UU TitAL DENSITY 
C 
C 

RhCC=G. 01559 

RHCSL = SATURATICN DENSITY 
C 
C 

KFCSL=HHCL*A( 1, n ♦TL**« 380+A ( 1, 2 ) *TL+A( 1, 3 ) *T £♦♦ ( A. / 3. I +A ( I ,4 ) ♦ 
2Tl^«(5«/3.)*A(1,5)*TL#*2 
RhLSL = f<hLSL/C,007 9467 

6VSL=SATuRATEL LIUUIU SPECIFIC VOLUPE 
E 

C 

SVSL=1./KFCSL 

RET CRN 

END 


svsL ono 

SVSL OQl 
SVSL 002 
SVSL 003 
SVSL 004 
SVSL 005 
SVSL 006 
SVSL 007 
SVSL OOd 
SVSL 009 
SVSL 010 
SVSL Oil 
SVSL 012 
SVSL 013 
SVSL 014 
SVSL 015 
SVSL 016 
SVSL 017 
SVSL 018 
SVSL 019 
SVSL 020 
SVSL 021 
SVSL 022 
SVSL 023 
SVSL 024 
SVSL 025 
SVSL 026 
SVSL 027 


301 



APPENDIX A 


C**** SUERCtTlNE VPFUft **** 

€♦♦♦♦ THIS SUePRCGRAM IS USED TO COMPUTE SATURATION PRESSURE AS A 
€♦♦♦♦ FUNCTION Of TEMPERATURE 
C 

FUNCTION VPFUN USU 
OIMENSiCN AI4) 

C=.05357*TSL-1.678 

Am«2«00062 

A(2I>~SO«CS7Q8 

AI3)*U00A4 

Ai4)«*0l7A84S5 

C 

€♦♦♦♦ TSi*T£MPERATURE,DEG-R 
(44^^41 J *T£PPERATUREtC£G-K 

C 

T *TSL/l*8 
ICNT-0 

C 

C**** USE APPRCXIPATE POLYNOMIAL CURVE FIT TO INITIALIZE SATURATION 
£♦♦♦♦ PRESSURE 
C 

PSL««301,2628-17.1219*TSL*.25A9671*TSL**2)/14,696 

L 

LSE POLIFIEC PETF.OD OF SUCCESSIVE APPROXIMATIONS TO OBTAIN 
SATURATION PRESSUREtPSL 

C 

3 1CNT*ICNT+1 
F = PSL 

FFSL*(-IAt2i*A(4)^A(l)-0.9342945*AL00IPn^SQRT4 IAI3) 
2*AI4HAm-0,4342945*AL0G(Pn**2-4.*A(4l»CA(3)*Am 
34A(2J-0,424 2945*AL0G(PI )))/( 2.»A(4I » 

PSL=FSL+(T -FPSLMC 
If IA£SUPSL-PI/FSU-,000m.l,2 
2 IFUCNT-30)3,lf 1 
1 VPfUN*PSL4l4.696 
RETURN 
END 


VPFUNOOO 

VPFUNOOl 

VPFUN002 

VPFUN003 

VPFUN004 

VPFUN005 

VPFUN006 

VPFUN007 

VPFUN008 

VPFUN009 

VPFUNOlO 

VPFUNOll 

VPFUN012 

VPFUN013 

VPFUN014 

VPFUN015 

VPFUN016 

VPFUN017 

VPFUN018 

VPFUN019 

VPFUN020 

VPFUN021 

VPFUN022 

VPFUN023 

VPFUN024 

VPFUN025 

VPFUN026 

VPFUN027 

VPFUN028 

VPFUN029 

VPFUN030 

VPFUN031 

VPFUN032 

VPFUN033 

VPFUN034 

VPFUN035 

VPFUN036 
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c**** suefiCLTiNe luti **** oun 

Q**** THIS SUBBOiTIhE PRINTS THE UUTPUT FCR TRANSIENT CASES AT THE OUTl 

L**** SPECIFIEO PRINT INTERVAL OUTl 

C OUTl 

SLBRCUTINE CLTltCALCl »NCT , IM , ID, I Y, IP AGE) OUTl 

LIMENSICN CALCU75,50) OUTl 

1C PCRR/T 1*1*/* CATE • A2 , * - • , A 2, «-• , A2 . 25X , *T«Q-SPUGL TURBOPUMP PERFLUTl 
ILRMANCE PRECICT ICN* , JIX. ‘PmoE *,I3) OUTl 

15 FORRAT C /48X, • INCUCEk ANU SUCTION LINE*) OUTl 

20 FURR AT ( /4X , • T I ME • , 6X , • P SL 1 • , 6X, * PI I • ,7X , *T 1 1 • , 7X , • S V I ' 1 7X , • NSL I * » CUTl 
lfcX,'UI*,BX,*Wl',7X,*PTII*.7X,'NI*,7Xf*(./NI',6X,*0PI*/5x, *SEC* OUTl 
2fcX,*FSIA* ,fcX,'PSIA',5X, *UEG-R*,4X ,.* f T**3/ LB * , 3X , • L8/ SEC ' , 5X , • GPW • ,0UT1 
36X, *L6/SEC* ,5X,*PSIA* ,oX,'kPR*,6X,*6AL/REV* ,4X, *PSI*/) OUTl 

25 FGRRAI I F IC , FS . 2 i 2F 10. 2 , F 10.3, F 10. 1 , 2F 1 0. 2 , FIO, 1 , F9, 1 , 2F10, 2) OUTl 
30 FlRRAT I/4X, ‘TIRE *,6x. *PTIL' , 7X, *PI£* ,8X, *DHI *,6X,*QHI/N**2' ,7X, UUTl 
I'NPSFl* ,5X, 'NFShl *,5X, •NPSH/N=<‘*2* »5X, *EATPI * , 6X , • SHPI * , 5X , • TOHW I * /UUTl 
25x, *SEC* ,6X, 'FSIA* ,7X, *PSI A* ,7X, • FT • , 7X , • FT/KPM*»2* , 6X, • PSI * , 7X , OUTl 
3*FT • ,ax,'FT/RFM*=*2* ,17X. *riP' , 6X, • FT-L E* / ) OUTl 

35 FCRRAT I F 10 .4 , F9 . 2, F 10. 2, F 10. 1, E 16. 5 , F 1C. 2, F 10. 1 , E14. 5 , F 10, 3 , UUTl 

12F11.1) OUTl 

AO FCRRAT ( /55X, *MA IN PUMP* ) UUTl 

45 FURRAT ( /4X , • T I RE • , 6X , * PMi • , 7X, • PTM I • ,6X, *TMI ',7X,' SVR* »7X, *wMI * , UuTl 
lax, *RP* ,bX,'NRl* ,7X, 'U/NM* , 6X« * OPRt * t 7X , * P T RE * ,6X, * PME* /5X, 'SEC* , OUTl 
26X,*FSiA*»6X,*PSiA* , 5X, • UEG-K * , 4X , • F T**3/ LB * ,4X,«GPM* ,6X, 'LB/SbC* ,UUT1 
36X, *RFR * • uUTl 

A5X, 'GAL/REV *,AX, ‘PSI* .7X,*PSIA* ,6X,*P£IA*/) UuTl 

50 FCRRAT I F 10 .4 , F9. 2 » 2F 10. 2 , F 10. 3, F 10. 1 ,F 10.2 ,F 11 . I ,F 9. 3, 3F 10. 2 ) OUTl 

55 FCRRAT ( / AX , * T I R E • , 6X , • OHM* , EX, • DHM/N**2 • ,6X, • NPSPM* , 5X , « NPSHM* , UUTl 
15X, 'NPSh/N**2* ,5x,*£ATPM» ,6X, *SHPM*,5X, *TCRQM*/5X,*SEC' » OUTl 

26X, *FT* ,9X, •FT/RPN**2* , oX . *PSI * . 7X, * FT* , 7X, *F T/RPR**2 * » 17X, 'HP* , OUTl 
36X, 'FT-L8'/ ) UUTl 

6C FCRRAT < F 1C . A , F 10 . 1 , E 1 A. 5, F 1C , 2, F 10. I ,E 14.5 ,F 10. 3 ,2 F 1 1. I ) OUTl 

65 FORRAT (/ 5 2X INDUCER TURBINE*) OUTl 

70 FURRAT ( /4X , • T 1 RE * , 6x , • PTTI 1 • , 5X , *T T I I * »6 X, * P TE I • ,7X , *PRI * , 7X , ' NT • UUTl 
1,8X, *FPi* ,6X, * CHT I* ,6X, *CU1* , 7X, 'UCOI • , 6X , • EA TTI * ,5X , * SHP TI • /5X , CuTl 
2*SEC* .6X, *PSIA* ,5X,*DEG-k* ,UX , * PSIA * , 1 5X , *LB/SEC* ,14X , • BTU/ LB • , 4X ,0UT1 
3*FT/S£C* ,26X, »HP*/) uUTl 

75 FORMAT ( F 10. 4 , F9, 2, F 10. 1 , FIO, 2. F 1C. 3 , F IC. 2, F IC. 3 ,Fl 0. I , F 1 1. 1 , UUTl 

lF9.3,fl0.3,Fll.l) UUTl 

80 FCRRAT { AX » • T 1 ME • , 5X, • TURQ I T ' /5X , • SEC * . 5X , * FT-LB • / ) UUTl 

85 FCRRAT (F1C.A,F9.1) CuTl 

90 FCRRAT (/52X, 'MAIN TURBINE* ) OUTl 

S5 FURRAT (/AX,'TIME',6X,*PTTIM*,5X,'TTIR* ,6 A, • P TTEM • , 6X , * PRM* ,7X, OUTl 
I* wT • s6X, «FPR * ,6X, *DHTM* .bX. 'COM* , 7X , • UCCM • , 6X , * E ATTM * ,5X, 'ShPTM*/ GUTl 
25X, 'SEC* ,6X,*PSIA • ,5X, *UEG-R* ,6X, 'PSI A* ,l 5X,* LB/SEC* 1 14X, ‘BTU/LB* ,UUT1 
3AX,*f T/SEC* ,26X, *HP'/) GUTl 

ICO FORRAT (AX,*TIME* ,5X,'T0RCMT*/5X, 'SEC * t 5X , 'FT-LB* /) OuTl 

IFACE=iPAGE*l UuTl 

RRITE (6*10 IR, IC, lY, XPAGE OUTl 

WRITE (6,15) OUTl 

WRITE (6,20 OUTl 

WRITE (6,25 ) (CALCl(l,J),(CALCl(I,J),I=2,12),J=l,NCT) OUTl 

IPAGE=IPAC-E41 OUTl 

WRITE (6,10 1M,IL, IV. IPAGE GUTl 

WRITE (6,15) OUTl 

WRITE (6,30) OUTl 

WRITE (6,25 ) (CALCl(I.J).(CALCK I,JI, 1=13,22) ,J=1,NCT) OUTl 

1PAG£=IPAGE41 OUTl 

WRITE (6,10 IR, ICtlY. IPAGE OUTl 


000 
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003 
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00 7 
008 
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012 
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030 
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032 
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036 

037 
0 38 

039 

040 
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042 
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ktRlTE (6.401 

OUTl 

059 

WRITE (6.451 

OUTl 

060 

WRITE (6.501 (CALCl(l«JI.(CAtCl(l.J). 1*23.33} .J-l.NCT) 

OUTl 

061 

1PACE-1PACE«1 

OUTl 

062 

WRITE (6.10) If*. 10. IV. (PAGE 

OUTl 

063 

WRITE (6.401 

OUTl 

064 

WRITE (6.55) 

OUTl 

065 

WRITE (6.60)(CALC1(I. JI.ICALCKI. Jl.l«34.41)» J*1«NCT) 

OUTl 

066 

1PAGE«1PAGE«1 

OUTl 

067 

WRITE (6.10) IR. 10. IV. (PAGE 

OUTl 

068 

WRITE (6.65) 

OUTl 

069 

WRITE (6.70) 

OUTl 

070 

WRITE (6.75) (CALCK 1. J). (CALCK I, J 1.1*42.52) .J«1,NCT) 

OUTl 

071 

IPAGE*1PACE41 

OUTl 

072 

WRITE (6.10 IR.IO.IY.IPAGE 

OUTl 

073 

WRITE 46.65) 

OUTl 

074 

WRITE (6.80) 

OUTl 

075 

WRITE (6.85) (CALCl(l.J).CALCl(53.J).J*l.rCT) 

OUTl 

076 

IPAGE«IPAGE-H 

OUTl 

077 

WRITE (6.10 IR.IC.IV.IPAGE 

OUTl 

078 

WRITE (6.90 

OUTl 

079 

WRITE (6.95 ) 

OUTl 

080 

WRITE (6.75) (CALCl(l.J).(CALCl(l .J) .1*54 .64) .J-l.NCT) 

OUTl 

081 

IPAGE-IPAGE+l 

OUTl 

082 

WRITE (6.10 1H.IC.1V.IPA6E 

OUTl 

083 

WRITE (6.90 

OUTl 

084 

WRITE (6.100) 

OUTl 

085 

WRITE (6.85) (CALCKl.J). CALCl ( 6 5. J ) . J«l .NCT ) 

OUTl 

086 

RETURN 

OUTl 

087 

END 

OUTl 

088 
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SUERCLTINt CUT2 UUT2 

This SLBRCUTINe PRINTS THE OtTPUT FOR INTtRMECIATE TIRE POINTS OF 0UT2 
TRANSIENT CASES OUT2 

C OUT2 

SOERCUTINE 00T2 ( CALC2 .MCT, IM, lU, lY, IPA6E I OUT2 

OIRENSiCN CALC2I12,50I OUT2 

10 FCRWAT I'l'/' CATE • A2f • - • , A2 , • ,A2 t 25X , »TttU-SPCCL TURBGPUMP PEKFCUT2 
ICRMANCE PBECiCTICN' ,31 a, ‘PAGE *,I3I 0UT2 

15 FORRAT (yA8>, 'INCOCER AND SUCTION L INE • /A 6X , * INT ERMEO lATE TIME P0I0UT2 

IMS') 0UT2 

20 FURRAT C / AX , • T IRE • , 6A . • PSo I • ,6X , • PI I • ,7X , *T 1 1 * , 7X , • SV I • , 7X, • wSL I ' , 0UT2 
16X,'CII* ,8X,*W1* ,7X,'PTII*,7X,*NI*,7X,*0/NI' ,6X,»DPI»/5X, 'SEC* OuT2 

26X,*fSlA* ,6X,'PSIA* ,5 X.*uEG-R*, AX,' FT**3/l 6*,3X,* LB/SEC *,5X, 'OPR* ,0UT2 
36X, 'LE/SEC',5X,'PSIA* ,t>X,'RPR',6X,*GAL/REV ,AX, 'PSI'/) OUT 2 

25 FORRAT ( F 1C .A , F9. 2, 2F 10. 2,F 10.3 , F 10. 1 ,2F 10. 2 , FI 1 , I, F9, 3 ,2F10. 2) DUT2 
IPACE=IPACE+1 0UT2 

WHITE (6,101 IR, IC, lY, IPAGE 0UT2 

WRITE (6,15J 0UT2 

WRITE (6,20 0UT2 

WRITE (6,251 (CALC2(1,JI,(CAL02(I,J),I=2,12),J=1,RCT) 0UT2 

RETURN UUT2 

ENC 0UT2 
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> SLERCLTINE CUT3 ♦♦♦♦ 0UT3 

> This SUBRCUTINE PRINTS THE OLTPUT FOR STEADY STATE CASES 0UT3 

OUT3 

SLBRCITINE CCT3 (CATAl. IM. IC,1Y«IPAGE) OUT3 

OlMEhSICK CATAH75I OUT3 

1 FCRP#T i n*y * CATE ‘A2# ♦ A2 . »A2 »25A t •TWO-SPCOL TUBOPUNP P6RFOUT3 

lORNAKCE PRECICTIGN* »31X«*PAGE ««13l OUT 3 

i FCPPAT INDUCER ♦A**' I OUT3 

I FORMAT (/ 6X.*PSLI» .6X,»P1I« .7X, »TI I * t , • SV I • t7X, • WSLI • ,0UT3 

16X»*UI» ,aX,»kI',7X,»PTII*»7X.»NI*,7A,«G/M*,6X,*DPI*/ OUT3 

26X,*fSIA* f6X,*PSIA«,5X#*0EG-R»,4Xf*FTA*3/LB* ,3Xf 'LB/SECS 5X, 'CPM* ,OUT3 
36X.UB/SEC* »5X»'PSIA* «6X. * RPM • , 6X , • CAL/RE V* ,4X, 'PSI'/i OUT3 

> FORMAT ( F9,2,2F10.2.F10.3.F10,1,2F1C,2,F10.1,F9.1 ,2F10.2//) OUT3 

) FORMAT (/ 6X.*PTIE* ,7X.«PI£* ,8Xt 'UHI •,fcX,'DHI/N**2* fix, OUT 3 

I'KPSFISSX, 'NPShl •#5X,*NPSH/N**2»t5Xt 'EATPI • .6X» * SHPI *, 5X,»TORQI •/OUT3 


2 6X,*PSiA*,7X.»PSlA* ,7X, »FT*,7Xf *FT/RPM**2* ,6X, *PSI * t7X, OUT3 
3*FT* fBXi *F1/RPM*A2* #17X,'HP' .«X. ‘FT-LE* / ) OUT3 
i FORMAT ( F9.2.FIO. 2*F 10. l«ElE.5tF10«2»F 10. 1»EU.5«F 10. 3 f GUT3 
12F11.1//I 0UT3 
I FORMAT (53Xt***** PUMP ♦♦♦♦» i 0UT3 
i FORMAT (/ 6X,*PMI»,7X#'PTMi*t6X,»TMI',7X,*SVM*,7X,«eMI», 0UT3 
leXf 'RP* t0X,*RM* ,7X,*0/NM',6X,*0PM*,7X,*PTME*,6X,'PME*/ 0UT3 
26X,*fSIA» ,«X,*PS1A«,5X, ‘DEG-R* f4X, »FT*»3/LB* t4X , • GPM* ,6X, • LB/SEC* ♦0UT3 
36Xt *Rf M' t 0UT3 
45X, •GAL/REV • .4 X , • PS I • #7X . • PSIA • , 6X , ' P < I A • /) 0UT3 
I FORMAT C F9.2.2F10.2,F10.3,F10.l,Fl0.2,Fll.l,F9,3,3F10,2//l DUT3 
i FORMAT (/ 6X,*DHM»,8X,»DHM/N4*2* f6X,*NPSPM* ,5X,*NPSHM» , GUT3 
15X,*KPSH/N*42' #5X,*£ATPM» ,6X. 'SHRM* ,5X,*T0R0M'/ 0UT3 
26X, »FI • ,9X, •FT/RRM**2*.6X, 'PSI*,7Xf 'FT* ,7X, *F T/RPM**2 • , 1 7X , • HP • , 0UT3 
36X. *f T-LE*/ I 0UT3 
1 FORMAT i FlC.l,£14.5,Fl0.2.Fl0,l,El4.5,Fl0.3,2Fll.l//» UUT3 
i FORMAT (4ex.'***< INDUCER TURBINE ♦♦♦♦•) 0UT3 

1 FORMAT (/ 6X.»PTTII*.5X,'TTII* ,6X,*PTEI* ,7X, »PR1 • , 7X # * WT • 0UT3 
l,8X, 'FPI* ,6X, •CFTI* ,6X, *COI • ,7X, 'OCOI *f 6X,'EATTI* ,5X, 'SHPTI •/ OUTS 

2 6X,'PSIA* ,5X,*0EG-R* ,6X.'PSIA»,15X, *LB/ SEC • , 14X , • BTU/LB • ,4X ,0UT3 
3'FT/SEC ,26X,*FP'/J GUT3 
i FORMAT < F9,2#FIO,1,F10.2,F1C,3,FIO,2,F10.3,FIO,1,F11,1, 0UT3 

1F9.3,F1C.3»F11.1//) 0UT3 

1 FORMAT (/ 5X, 'TQRUIT'y 5X ,'FT-LB»/) QUT3 
i FORMAT IF9.1//J 0UT3 
I FORMAT (49X,'**** MAIN TURBINE ♦♦♦♦•) 0UT3 
i FORMAT (/ 6Xt* PTTIM* ,5Xt ‘TTIM* ,6X, • P TTEM • , 6X t • PRM* ,7X, 0UT3 

l'kT« t8Xt'FPMS6Xf 'OhTM* ,6X,*COM»,7X,»OCCMS6X,*EATTM* ,5X, »SHPTM*/ 0UT3 

2 6X«*PS1A*,5X,»0EG-R*,6X, »PSIA» ,15X,»L8/SEC* ,14X» 'BTU/LB* ,0UT3 
34Xf 'FT/SEC t26X, 'HP'/I UUT3 
I FORMAT 1/ 5X, 'TORCMT'/ 5X,'FT-LB'/> GUT3 

IPAGE«IPA£E4l 0UT3 
hRITE (EflG) IMdCtlYtlPAGE GUT3 


0UT3 

0UT3 

GUT3 

0UT3 

GUT3 

0UT3 

UUT3 

0UT3 


5X,'FT-LB'/> 


HRITE 

HRITE 


(6,1S J 
(6»2Q} 


HRITE (6,2£) 
HRITE (6.301 
HRITE (6.35) 
HRITE (6.401 


(0ATAi(Il.I«2.121 

(CATAKIl.I-13.221 


HRITE (6.451 
HRITE (6.501 
HRITE (6.551 


(6.451 

(6.501 (OATAKI 1.1-23. 331 


HRITE 

HRITE 

HRITE 


(6.601 
(6.65 1 
(6.701 


(OATAKI 1.1-34.411 
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WHITE 

16,15} 

(LATAK I }, I = '^2, 52} 

UUT3 

06 1 

WHITE 

(e,8C I 


0UT3 

061 

WHITE 

16,85} 

tATAU53} 

UUTi 

062 

WHITE 

(6,«5C} 


UUT3 

063 

WHITE 

46,95 } 


UUT3 

06A 

WHITE 

(6,15 } 

(CATAU I }. 1 = 5A.6A} 

0UT3 

065 

WHITE 

(6, ICC} 


UUT3 

066 

WHITE 

(6, £5 } 

CATA1465} 

UUT3 

067 

HETlif H 



OUT 3 

06 3 
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€•♦♦♦ fLCT SLeOCUTINE PLOT 001 

StePCUTlNE FLCT CKCONM.OATAl. IBftAf^l PLOT 002 

10 FCPPIT ('INC PLOTTING PROGRAM HAS BEEh INCLUOEOtPLOT CPTIQN NOT PLOT 003 

AVAILABLE* I PLOT 004 

hRITE (6.1CJ PLOT 005 

RETOPh PLOT 006 

ENC PLOT 007 
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C**** 

(.**** 

C 


10 

15 


SL£8tLTiN£ LIA6 

This SOaftOLTIhe 
PBUORAM 


20 

25 

30 

25 

50 

51 

55 

5t 

57 

eo 

61 

70 

71 

72 

75 

76 

77 


U I AG 

f HINTS THE DIAGNOSTIC MESSAGES fOH THE ENTIRE 01 AG 

UIAG 
OIAG 

SGBRCGTINE CIAG ( I,d, ITAb, IHPR, ITERl, IT ER2, I TER4 , ITERS, I TER6 , OIAG 

lPAHifPAR2tPARBNf PARMX) OIAG 

FGPPAT I *1' ,48Xf 'CIAGNUSTIC ERROR MESSAGE »/53X# 'CASE TERMINATED* 1 OIAG 
FORMAT (//' ERROR IN INTERPOLATION SUBROUTINE TA6IN, CALLED FROM MAOIAG 
HR FFCGRAM TC INTERPOLATE' I OIAG 

FORMAT {//* ERRCR IN INTERPOLATION SUeROUTINE TABP, CALLED FROM MAIDIAG 
IN PROGRAM TO INTERPOLATE') OIAG 

FORMAT {//• ERROR IN INTERPOLATION SUBROUTINE TABIN, CALLED FROM SUUIAG 
IbROLTINE PRATO TC INTERPOLATE*) OIAG 

FORMAT t//' ERROR IN HYCRUGEN PROPERTIES SUBROUTINE HPROP') OIAG 

FORMAT (//* NUMBER OF ITERATIONS EXCEEDS 30 » ) OIAG 

FORMAT ( ' FOR MAIN TURBINE FLOW PARAMETER AS A FUNCTION OF MAIN TUUIAG 
IREINE PRESSURE RATIO. • ) UlAG 

FORMAT I* PRESSURE RATIO IS LESS THAN MINIMUM TABULATED VALUE ,POS SO I AG 
IIBLE SOLUTION IS TU EXTEND'/' MAIN TURBINE FLOW PARAMETER CURVE TuDIAG 
2 LOWER PRESSURE RATIOS.' ) OIAG 

FORMAT ( * FCR MAIN TURBINE EFFICIENCY AS A FUNCTION OF MAIN TURBINDIAG 
IE VELOCITY RATIO.') OIAG 

FORMAT ( • VELOCITY RATIO IS LESS THAN MINIMUM TABULATED V ALUE ,PCSSD I AG 
IIBLE SOLUTION IS TO EXTEND'/* MAIN TURBINE EFFICIENCY CURVE TO LOWDIAG 
2ER VELOCITY RATIOS.' ) OIAG 

FORMAT I* VELOCITY RATIO EXCEEDS MAXIMUM TABULATED VALUE , POSSIBLE DIAG 
ISCLLTICN IS TO EXTEND'/' MAIN TURBINE EFFICIENCY CURVE TO HIGHER VDIAG 
2EL0CITY RAT ICS.* ) DIAG 

FORMAT ( • FOR INCUOEk TURBINE FLOW PARAMETER AS A FUNCTION OF INUUOI AG 


MINIMUM 

TURBINE 


AS A 


DIAG 

TABULATED VALUE tPCSSU I AG 
FLOW PARAMETER CURVEOIAG 

DIAG 

FUNCTION OF INDUCER UIAG 

OIAG 

TABULATED VALUE .PCSSDI AG 
EFFICIENCY CURVE TO OIAG 

D 1 AG 


80 

£5 

£6 

£7 

£8 

90 

91 

92 
95 


ICER TURBINE PRESSURE RATIO.' ) 

FORMAT ( * PRESSURE RATIO IS LESS THAN 
IIBLE SOLUTION IS TU EXTEND'/ • INDUCER 
2 TO LOWER PRESSURE RATIOS. • ) 

FORMAT ( * FCR INDUCER TURBINE EFFICIENCY 
ITURBINE VELOCITY RATIU. * ) 

FORMAT ( * VELOCITY RATIU IS LESS THAN MINIMUM 
IIBLE SLLOTICN IS TO EXTEND'/* INDUCER TURBINE 
2LCWEP VELOCITY RAIIUS.'I 
FORMAT ( • VELOCITY RATIU EXCEEDS MAXIMUM TABULATED VALUE. POSSIBLE OIAG 
ISCLLTICN IS TO EXTEND*/' INDUCER TURBINE EFFICIENCY CURVE TO HIGHEDIAG 
2R VELOCITY RATIOS.') OIAG 

FORMAT ( • FOR INCUCER SHAFT SPEED AS A FUNCTION OF INDUCER POWER. 'DIAG 
I) DIAG 

FORMAT I • INCUCER POWER IS LESS THAN MINIMUM TABULATED VALUE. • ) OIAG 

FORMAT I • POSSIBLE SOLUTION IS TO CHANGE INITIAL GUESS OF INDUCER OIAG 
ISPEEC ANC OR EXTEND RANGE OF INDUCER EFFICIENCY'/' AND HEAD RISE CD I AG 
2LRVES.' ) DIAG 

FORMAT (• INCUCER POWER EXCEEDS MAXIMCM TABULATED VALUE.' ) 

FORMAT ( * FCR INITIAL MAIN TURBINE INLEl TOTAL TEMPERATURE AS A 

IFUNCTICN OF TIME.*) 


FORMAT <• INITIAL 
FORMAT I* TURBINE 
ITIME.' ) 

FORMAT (• INITIAL 
FORMAT ( * TURBINE 
IE IF TURBINE INLET 
FORMAT ( • TANK 
FORMAT (' MAIN 


TIME IS LESS THAN 
INLET TEMPERATURE 


MINIMUM 
MUST BE 


TABULATED 

TABULATED 


TIME. • } 

FUR INITIAL 


DIAG 
DIAG 
U 1 AG 
DIAG 
DIAG 
OIAG 
DIAG 
TIMOIAG 
DIAG 

PRESSURE MUST BE TABULATED FDR INITIAL TIME.' ) DIAG 

SHAFT SPEED MUST BE TABULATED FOR INITIAL TIME.' ) DIAG 


TIME EXCEEDS MAXIMUM TABULATED TIME.* ) 

INLET PRESSURE MUST BE TABULATED FOR INITIAL 
PRESSURE OPTION IS BEING USED.') 


FORMAT ( 
ICTICN CF 


* FOR INITIAL 
TIME.' } 


MAIN TURBINE INLET TOTAL PRESSURE AS A 


FUNDIAG 

OIAG 


000 

001 

002 

003 

004 

005 

006 

007 

008 

009 

010 

011 

012 

013 

014 

015 

016 

017 

018 

019 

020 
021 
022 

023 

024 

025 

026 

027 

028 

029 

030 

031 

032 

033 

034 

035 

036 

037 

038 

039 

040 

041 
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048 

049 
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051 
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057 
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S6 fCRHAl I • FOR INITIAL MAIN SHAFT SPEED AS A FUNCTION OF TINE.* I 0IA6 060 
97 FORMAT I • FOR INITIAL TANK PRESSURE AS A FUNCTION OF TIME.* ) 0IA6 061 
99 FORMAT C* FOR TURBINE INLET TEMPERATURE AS A FUNCTION OF TIME.* ) 01 AG 062 

IOC FORMAT I* TIME EXCEEDS MAXIMUM TIME FCR teHICH TURBINE INLET TEMPEROIAG 063 
lATURE IS TABULATED.*) DIAG 064 

104 FORMAT (* FCR TURBINE INLET PRESSURE AS A FUNCTION OF TIME.* ) OIAG 065 

105 FORMAT (* TIME EXCEEDS MAXIMUM TIME FOR NHICH TURBINE INLET PRESSUOIAG 066 

IRE IS TABULATED.* ) OIAG 067 

109 FORMAT I* FCR TANK PRESSURE AS A FUNCTION OF TIME.* ) DIAG 068 

110 FORMAT C* TIME EXCEEDS MAXIMUM TIME FCR hHlCH TANK PRESSURE IS TABOIAG 069 

lULATEO.* ) DIAG 070 

llA FCRM/T ( • FOR MAIN SHAFT SPEED AS A FUNCTION OF TIME.*) OIAG 071 

115 FORMAT C* TIME EXCEEDS MAXIMUM TIME FCR NHICH MAIN SHAFT SPEED IS DIAG 072 
1TA6LLATE0.* ) OIAG 073 

120 FCRMAT i » FCR MAIN PUMP NORMALIZED HEAD RISE AS A FUNCTION OF QOIAG 074 

1/N.* ) OIAG 075 

121 FORMAT I* C/N IS LESS THAN MINIMUM TABULATED VALUE. POSSIBLE SOLUTIOIAG 076 

ION IS TO EXTEND*/* MAIN PUMP NORMALIZED HEAD RISE CURVES TO LOWER OIAG 077 
2C/N.*) DIAG 078 

122 FORM/T I* C/N EXCEEDS MAXIMUM TABULATED VALUE .POSSI BLE SOLUTION I SOI AG 079 

1 TO EXTEND*/* MAIN PUMP NORMALIZED HEAD RISE CURVES TO HIGHER U/N.DIAG 080 
1*1 OIAG 081 

125 FCRMAT ( * FCR MAIN PUMP EFFICIENCY AS A FUNCTION OF Q/N.* ) OIAG 082 

126 FORMAT (* C/N IS LESS THAN MINIMUM TABULATED VALUE* PQSS IBLE SOLUTIOIAG 083 

ICN CS TC EXTEND*/* MAIN PUMP EFFICIENCY CURVES TO LOWER Q/N.*) OIAG 084 

127 FORMAT ( * C/N EXCEEDS MAXIMUM TABULATED VALUE .POSSI BLE SOLUTION ISOIAG 085 

1 TC EXTEND*/* MAIN PUMP EFFICIENCY CURVES TO HIGHER Q/N.* ) OIAG 086 

130 FORMAT ( * FCR INDUCER NURMALIZED HEAD RISE AS A FUNCTION OF Q/N. OIAG 087 

1* ) OIAG 088 

131 FORMAT I* C/N IS LESS THAN MINIMUM TABULATED VALUE. POSSIBLE SOLUTIOIAG 089 

ICN IS TC EXTEND*/* INDUCER NORMALIZED HEAD RISE CURVES TO LOWER Q/OIAG 090 
2N.* ) OIAG 091 

132 FCRMAT I* C/N EXCEEDS MAXIMUM TABULATED VALUE .PCS SI BL E SOLUTION ISOIAG 092 

1 TO EXTEND*/* INCUCER NORMALIZED HEAD RISE CURVES TO HIGHER Q/N.* )OIAG 093 

135 FCRMAT ( * FCR INCUCER EFFICIENCY AS A FUNCTION OF Q/N.* ) OIAG 094 

136 FORMAT 1* C/N IS LESS THAN MINIMUM TABULATED VALUE. POSS IBLE SOLUTIOIAG 095 

ICN IS TC EXTEND*/* INDUCER EFFICIENCY CURVES TO LOWER Q/N.* ) OIAG 096 

137 FORMAT C* C/N EXCEEDS MAXIMUM TABULATED VALUE.POSSIBLE SOLUTION ISOIAG 097 

1 TC EXTEND*/* INCUCER EFFICIENCY CURVES TO HIGHER Q/N.' ) DIAG 098 

150 FORMAT (//* PUMP INLET STATIC PRESSURE CORRECTION LOOP ITERATION COIAG 099 

lOUNTER * *.12/* LOOP STARTS AT STATEMENT 125 AND ENOS AT 154 IN MAO I AG 100 
2IN PROGRAM. < I OIAG 101 

151 FCRMAT I//* MAIN SHAFT SPEED CORRECTION LOOP ITERATION COUNTER » 'OIAG 102 

1,12/* LOOP STARTS AT STATEMENT 120 AND ENOS AT 227 IN MAIN PROGRAHOIAG 103 
2«* } ■ OIAG 104 

152 FCRMAT (//* INCUCER SPEED CORRECTION LOOP ITERATION COUNTER = * .I20IAG 105 
1/* LOOP STARTS AT STATEMENT 140 AND ENOS AT 650 IN MAIN PROGRAM. *) 0 lAG 106 

153 FORMAT {//* MAIN TURBINE PRESSURE RATIO REOUCTICN LOOP ITERATION COIAG 107 

lOUNTER « * ,12/* LOOP STARTS AT STATEMENT 200 AND ENOS AT 350 IN MAO I AG lOB 
21N PRC6RAM.*) OIAG 109 

154 FORMAT (//* MAIN TURBINE PRESSURE RATIO CORRECTION LOOP ITERATION OIAG 110 

ICOUNTER * *,I2/* LOOP STARTS AT STATEMENT 190 AND ENOS AT 450 IN MO I AG 111 
2A1N FPCGRAM.*) OIAG 112 

160 FORMAT (//* PARAMETER VALUE - *.E13.6//* MINIMUM TABULATED PARAHETOIAG 113 
lER VALUE * *,E13.6//* MAXIMUM TABULATED PARAMETER VALUE « * .£13.6)0IAG 114 

170 FCRMAT C* CURING SEARCH FOR SUCTION LINE SONIC VELOCITY.*) OIAG 115 

175 FORMAT I* CURING SEARCH FOR INOUCER INLET SPECIFIC VOLUME.* ) OIAG 116 

180 FORMAT (* CURING SEARCH FOR PUMP INLET SPECIFIC VOLUME.*) OIAG 117 

190 FCRMAT (/* PRESSURE IS LESS THAN MINIMUM TABLE VALUE.*) OIAG 118 
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191 FOR^/T (/* PRESSURE IS GREATER THAN MAXIMCH TABLE VALUE**) UIAG 119 

192 FCRRAT C/* TEMPERATURE IS BELCH THE FREEZING PGINT**) 01 AG 120 

193 FORMAT I/' TEMPERATURE IS GREATER THAN VAPOR TEMPERATURE.*) OIAG 121 


196 FORMAT (/• PRESSURE * •,E13.6.* PSIA 
IG-P*) 

197 FORMAT I/* FREEZING POINT » •.£13*6t* 
1 *,£13.6,* OEG-R*) 

195 FORMAT (/* MINIMUM TABULATED PRESSURE 
lABULATEC PRESSURE = *.E13.6.* PSIA*) 
WRITE (6*10 

GO TC <2CC,220,210,230,240)*i 
200 WRITE (6,15) 

60 TC 300 
210 WRITE 16.20) 

60 TC 300 
220 WRITE (6.25) 

GO TC 300 
230 WRITE (6,30) 

GO TC 600 
240 WRITE (6,35) 

GO TC 550 

30C GO TC (210,215,320,325,330.335.340,34 
1370,375,38C,385,39O), ITA8 
310 WRITE (6,50) 

WRITE (6,51) 

GO TC 500 
215 WRITE (6,55) 

GO TC (316, 216, 317), J 

316 WRITE (6,56) 

GO TC 500 

317 WRITE (6,57) 

GO TC 500 

320 WRITE (6,60 
WRITE (6,61) 

GO TC 500 
325 WRITE (6,70) 

GO TC (326, 326, 327), J 
226 WRITE (6,71) 

GO TC 500 
327 WRITE (6,72) 

GO TC 500 

330 WRITE (6,120) 

GO TC (321,331, 332), J 

331 WRITE (6,121) 

GO TC 500 

332 WRITE (6,122) 

GO TC 5C0 

335 WRITE (6,125) 

GO TC (236, 226, 337), J 

336 WRITE (6,126) 

GO TC 500 

337 WRITE (6,127) 

GO TC 500 

34C WRITE (6,130) 

GC TC (341, 241, 342), J 

341 WRITE (6,131) 

GC TC 500 

342 WRITE (6,132) 

GO TC 500 

345 WRITE (6,135) 


TEMPERATURE = *,E13.6,* OEOIAG 122 

DIAG 123 

OEG>R VAPOR TEMPERATURE =OIAG 124 

OIAG 125 

« *,E13.6,* PSIA MAXIMUM TOIAG 126 

OIAG 127 
OIAG 128 
OIAG 129 
OIAG 130 
OIAG 131 
UIAG 132 
OIAG 133 
OIAG 134 
OIAG 135 
UIAG 136 
OIAG 137 
OIAG 138 
OIAG 139 

i,35C, 315, 315, 355, 360, 365, OIAG 140 

OIAG 141 
OIAG 142 
OIAG 143 
OIAG 144 
OIAG 145 
OIAG 146 
OIAG 147 
OIAG 148 
UIAG 149 
OIAG 150 
OIAG 151 
OIAG 152 
OIAG 153 
OIAG 154 
OIAG 155 
UIAG 156 
OIAG 157 
OIAG 158 
OIAG 159 
OIAG 160 
OIAG 161 
UIAG 162 
OIAG 163 
OIAG 164 
OIAG 165 
OIAG 166 
OIAG 167 
OIAG 168 
OIAG 169 
OIAG 170 
OIAG 171 
OIAG 172 
OIAG 173 
OIAG 174 
OIAG 175 
OIAG 176 
OIAG 177 
OIAG 178 
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GO TC 

(346.346t347ltJ 

OIAG 

179 

346 

MAITE 

(6.1361 

DIAS 

180 


GO TC 

500 

OIAG 

181 

347 

taRlTE 

I6.137) 

OIAG 

182 


GO TC 

500 

OIAG 

183 

350 

tiRlTE 

{6.75I 

OIAG 

164 


GO TC 

(3Slt3Sl«3S2l«J 

OIAG 

185 

351 

teRITE 

16 1 76 ) 

OIAG 

186 


MRITE 

(6.77) 

OIAG 

187 


GC TC 

500 

OIAG 

188 

352 

WRITE 

(6t80) 

OIAG 

189 


WRITE 

16»77) 

OIAG 

190 


GC TC 

500 

OIAG 

191 

355 

WRITE 

I6»85) 

OIAG 

192 


WRITE 

( 6 1 8 7 1 

OIAG 

193 


GO TC 

4356>356t357l,J 

OIAG 

194 

356 

WRITE 

16,86} 

OIAG 

195 


60 TC 

500 

OIAG 

196 

35? 

WRITE 

16,88) 

OIAG 

197 


GO TC 

500 

OIAG 

198 

360 

WRITE 

16,95} 

OIAG 

199 


WRITE 

16,90) 

OIAG 

200 


60 TC 

1361, 361, 362), J 

OIAG 

201 

361 

WRITE 

16,86) 

OIAG 

202 


GC TC 

500 

OIAG 

203 

362 

WRITE 

16,88) 

OIAG 

204 


GC TC 

500 

OIAG 

205 

365 

WRITE 

16,96) 

OIAG 

206 


WRITE 

16,92) 

OIAG 

207 


GO TC 

1366, 366, 367), J 

OIAG 

208 

366 

WRITE 

16,86) 

OIAG 

209 


GC TC 

500 

OIAG 

210 

367 

WRITE 

16,88) 

OIAG 

211 


GC TC 

500 

OIAG 

212 

370 

WRITE 

16,99) 

OIAG 

213 


WRITE 

16,100) 

OIAG 

214 


GC TC 

500 

0 1 AG 

215 

375 

WRITE 

16,104) 

0 1 AG 

216 


WRITE 

16,105) 

OIAG 

217 


GC TC 

500 

OIAG 

218 

380 

WRITE 

16,114) 

OIAG 

219 


WRITE 

16,115) 

OIAG 

220 


GC TC 

500 

OIAG 

221 

385 

WRITE 

16,97) 

OIAG 

222 


WRITE 

16,91) 

OIAG 

223 


GC TC 

1386, 386, 367), J 

OIAG 

224 

386 

WRITE 

16,86) 

OIAG 

225 


GC TC 

500 

OIAG 

226 

387 

WRITE 

16,88) 

OIAG 

227 


GO TC 

500 

OIAG 

228 

390 

WRITE 

16,109) 

OIAG 

229 


WRITE 

16,110) 

OIAG 

230 

500 

WRITE 

16,160) PAR1,PARNN,PARMX 

OIAG 

231 

550 

WRITE 

16,150) ITERl 

OIAG 

232 


WRITE 

16,151) ITER2 

OIAG 

233 


WRITE 

16,152) ITER4 

OIAG 

234 


WRITE 

16,153) ITERS 

OIAG 

235 


WRITE 

16,154) 1TER6 

OIAG 

236 


GC TC 

700 

OIAG 

237 
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600 

GC TC 

(610.620 

.630).IHPR 

OIAG 

238 

610 

kRITE 

(6.170) 


CIAG 

239 


GQ TC 

640 


OIAG 

240 

620 

RRITE 

(6.175) 


OIAG 

241 


GC TC 

640 


OIAG 

242 

630 

6RJT£ 

(6.180) 


OIAG 

243 

640 

GC TC 

(650.650 

.655. 660. 670). J 

OIAG 

244 

650 

kRiTE 

(6 .ISO) 


OIAG 

245 


RRITE 

(6.1S5) 

PARRN.PARHX 

OIAG 

246 


GC TC 

680 


OIAG 

247 

655 

hRlTE 

(6.151) 


OIAG 

248 


MRITE 

(6.195) 

PARRN.PARMX 

OIAG 

249 


GC TC 

680 


OIAG 

250 

660 

WRITE 

(6.192) 


OIAG 

251 


WRITE 

(6.197) 

PARRN.PARHX 

OIAG 

252 


GC TC 

680 


OIAG 

253 

670 

WRITE 

(6.193) 


OIAG 

254 


WRITE 

(6.197) 

PARRN.PARHX 

OIAG 

255 

680 

WRITE 

(6.196) 

PAR1.PAR2 

OIAG 

256 

7C0 

RETCRR 


OIAG 

257 


ENC 



OIAG 

256 
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Appendix B 


The example case presented here is the six second transient case discus- 
sed in the program verification section of this report. The input data is for 
test -003 of the twin-spool test series. The data deck used for this case is 
shown on pages 341 and 342. The hydrogen properties deck completes this 
appendix. 

Information shown on the computer output pages 295 through 340, is as 
follows: 

Page 295 


1. Identification of the eight characteristic turbopump component 
curves . 

2. Main turbine flow parameter tabulated data (1) 

3. Main turbine efficiency tabulated data (2) 

4. Inducer turbine flow parameter tabulated data (3) 

5. Inducer turbine efficiency tabulated data (4) 

Page 296 

Pump normalized head rise tabulated data (5) 

Page 297 

Pump efficiency tabulated data (6) 

Page 298 

Inducer normalized head rise tabulated data (7) 

Page 299 

Inducer efficiency tabulated data (8) 
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Page 300 

Input case data including the four time dependent parameters. 

The above six pages are simply a program listing of the input data. 

The printing of computed data starts on page 301. Time is always listed 
as the first parameter. 

Page 301 

PSLI - Suction line inlet pressure 

PII - Inducer inlet pressure 

Til - Inducer inlet temperature 

SVI - Inducer inlet specific volume 

WSLI - Suction line inlet mass flow rate 

QII - Inducer inlet volumetric flow rate 

WI - Inducer inlet mass flow rate 

PTII - Inducer inlet total pressure 

NI - Inducer rotative speed 

Q/NI - Inducer normalized flow rate 

DPI - Inducer total pressure rise 

Page 302 

PTIE - Inducer discharge total pressure 
PIE - Inducer discharge static pressure 
DHI - Inducer head rise 
DHI/N**2 - Inducer normalized head rise 
NPSPI - Inducer net positive suction pressure 
NPSHI - Inducer net positive suction head 
NPSH/N**2 - Inducer normalized suction head 
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EATPI - Inducer efficiency 
SHPI - Inducer power 
TORQI - Inducer torque 

Page 303 

PMI - Pump inlet pressure 

PTMl - Pump inlet total pressure 

TMI - Pump inlet temperature 

SVM - Pump inlet specific volume 

QMI - Pump inlet volumetric flow rate 

WP - Pump weight flow rate 

NM - Pump speed 

Q/NM - Pump normalized flow rate 

DPM - Pump total pressure rise 

PTME - Pump discharge total pressure 

PML - Pump discharge static pressure 


Page 304 


DHM 

DHM/N**2 

NPSPM 

NPSHM 

NPSH/N**2 

EATPM 

SHPM 

TORQM 


Pump head rise 

Pump normalized head rise 

Pump net positive suction pressure 

Pump net positive suction head 

Pump normalized suction head 

Pump efficiency 

Pump power 

Pump torque 
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Page 305 

PTTII - Inducer 
TTII - Inducer 
PTEI - Inducer 
PRI - Inducer 
WT - Turbine 
FPI - Inducer 
DHTI - Inducer 
COI - Inducer 
UCOI -- Inducer 
EATTI - Inducer 
SHPTI - Inducer 


turbine inlet total pressure 
turbine inlet total temperature 
turbine discharge pressure 
turbine total-to-static pressure ratio 
flow rate 

turbine flow parameter 
turbine enthalpy drop 
turbine sporting velocity 
turbine velocity ratio 
turbine static efficiency 
turbine power 


Page 306 
TORQIT - 
Page 307 


PTTIM - 

TTIM 

PTTEM - 

PRM 

WT 

PPM 

DHTM - 
COM 
UCOM 
EATTM - 
SHPTM - 
TORQMT - 


Inducer turbine torque 


Main turbine inlet total pressure 

Main turbine inlet total temperature 

Main turbine discharge total pressure 

Main turbine total-to-total pressure ratio 

Main turbine flow rate 

Main turbine flow parameter 

Main turbine enthalpy drop 

Main turbine spouting velocity 

Main turbine velocity ratio 

Main turbine total efficiency 

Main turbine power 

Main turbine torque 


For additional time points the data is printed on succeeding pages. 
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Appendix C 


I. INDUGER/MAIN STAGE PUMP DESIGN AND PERFOBMANCE NOMENCLATURE 


ms 


m 


'^pIS 

HSI 

HDIIS 

HDAIS 

HDI 

HDA 



P 

TSL 

^TDS 

SVSL 

SVDS 


g 


ID 




ms 


DT 

SVD 


NPSH , 
tk 

HSV or 

NPSH 

ms 


Flow coefficient mainstage impeller discharge C^^/p 2 
Volumetric flow rate/impeller discharge area 
Impeller tip velocity 


HDAIS 


Mainstage pump efficiency x (100) 


HSI - HDIIS 
HSI - HDAIS 


Low speed pump efficiency (inducer-stator) 

Suction line enthalpy 

Stator discharge ideal enthalpy 

Stator discharge actual enthalpy 

Mainstage discharge ideal enthalpy 

Mainstage discharge actual enthalpy 

Low speed stage (inducer-stator) head coefficient 

[P^jjg (SVDS) - (SVSL)] g/pjjj 


X 


Suction line total pressure 
Stator discharge total pressure 
Specific volume in suction line 
Specific volume at stator discharge 
Acceleration of gravity 
Inducer rotor tip velocity 

Mainstage pump discharge total pressure 

Specific volume at pump discharge 

Net positive suction head within the run tank 

Net positive suction head at the inlet to mainstage pump 
(within the Interstage) 


( 100 ) 
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Appendix G 


'ID 


Cm. 


ID 


<f> 


II 

Cmii 

’^II 

^I 

T 

NPSHj 

N 

ms 

N, 


Flow coefficient at Inducer rotor discharge Gm^jj/p^j^ 

Volumetric flow rate/lnducer rotor discharge area 

Flow coefficient at Inducer rotor Inlet Cmj.^/p^j. 

Volumetric flow rate/lnducer rotor Inlet area 

Inducer rotor Inlet tip velocity 

Suction specific speed at Inducer rotor inlet 

Cavitation parameter = NPSHj^/Pjj./g 

Net positive suction head on the suction line 

Mainstage Impeller rotational speed 

Inducer rotor rotational speed 

Volumetric flow at mainstage discharge 


II. INDUCER TURBINE DESIGN AND PERFORMANCE NOMENCLATURE 


Symbol 

Description 

English 

Units 

SI 

a 

Local speed of sound 

ft/sec 

m/s 

A 

Area 

in.^ 

cm 

b 

Axial blade chord 

inch 

cm 

c 

Blade chord 

inch 

cm 

Co 

Spouting velocity 

ft/sec 

m/s 


Specific heat at constant pressure 

Btu/lb-°R 

J/kg-°K 

d 

Throat opening at mean radius 

inch 

cm 

®h 

Hydraulic diameter 

ft 

m 

g 

Acceleration of gravity (32.174) 

2 

ft/sec 

m/s^ 

h 

Blade height 

inch 

cm 

H 

Specific enthalpy 

Btu/lb 

J/kg 
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Symbol 

J 

K 

M 


n 

N 

P 

PR 

r 

R 

Re 

s 

t 

T 

T. 


s 


tr 


U 


m 


V 

W 

W 


a (alpha) 
6 (beta) 

Y (gamma) 


Description 

Mechanical equivalent of heat (778.2) 

Velocity coefficient 

Absolute Mach number 

Number of blades or vanes 

Rotational speed 

Static pressure 

Total pressure 

Total-to-static pressure ratio 
Radius 

Gas constant 
Reynolds number 
Blade pitch 

Blade maximum thickness 

Static temperature 

Total temperature 

Total relative temperature 

Wheel velocity at blade mean radius 

Absolute velocity 

Velocity relative to rotor 

Mass flow 

Angle of absolute gas velocity 
Angle of relative gas velocity 
Ratio of specific heats, y - 


English 
f t-lb/Btu 


rpm 

lb/ in. ^ 
lb / in . ^ 

inch 

Ibf-ft 

lbm-°R 

inch 

inch 

°R 

°R 

°R 

ft/sec 

ft/sec 

ft/sec 

lb/ sec 

degrees 

degrees 


Units 

SI 

J 


rad/s 

N/cm^ 

N/cm^ 

cm 

N-m 

kg-°K 

cm 

cm 

°K 

°K 

°K 

m/s 

m/ s 

m/s 

kg/ sec 

degrees 

degrees 
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Appendix C 


Symbol 
A (delta) 
6 

Tig (eta) 

p (rho) 
a 
0 
A0 
e 
5 


Description 

Prefix to indicate a change 
Deviation angle 

Turbine efficiency based on 
total-to-static pressure ratio 

Density 

Deviation angle 
Blade camber angle 
Induced angle 
Gas turning angle 
Loss coefficient 


English 


Ib/ft^ 


Subscripts 


0 ’ 


1 ' 


2 ' 


0 

1 

2 

3 

a 

b 

c 


Main turbine flange inlet 
Main turbine first stator inlet 
Main turbine last rotor exit 
Inducer turbine stator inlet 
Inducer turbine stator exit 
Inducer turbine rotor exit 
Inducer turbine exhaust flange 
Blade annulus 
Blade 

Bearing coolant, or blade clearance annulus 


h 

i 

m 

n 

r 


Hydraulic 
Isentropic 
At mean radius 
Nozzle 

Rotor, radius, or relative 


Units 

SI 


kg/m^ 
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Subscripts 
s Static 

t Trailing edge, total, or turbine 

u Tangential component 

X Axial component 


III. COMPUTER ANALYSIS NOMENCLATURE 


Symbol 

a 

A 

C 

C 

P 

Co 

D 

f 

FP 

g 

b 

H 

I 

J 

K 

L 


Definition 

Sonic velocity, suction line 
Area 

Loss coefficient 

Constant pressure specific heat 

Isentropic spouting velocity 

Suction line diameter 

Friction factor 

Flow parameter 

Gravatational constant 

Enthalpy 

Head 

Polar moment of inertia 
Mechanical equivalent of heat 
Darey head loss coefficient 
Suction line length 


Units 

ft/ sec 

. 2 

xn. 


Btu/lb-°R 

ft/sec 

ft 


. 2o^1/2. 

in. R /sec 
2 

ft/ sec 


Btu/lb 


ft 

in. -lb-sec 


778.16 


ft- lb 
Btu 


ft 
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Symbol 

N 

NPSP 
NPSH 
' P 
Pr 
Q 

r 

R 

SHP 

SV 

t 

T 

U 

V 
w 
P 

Y 

n 

T 

A 

Subscripts 

sL 

I 

1 


Definition 
Rotative speed 

Net positive suction pressure 

Net positive suction head 

Pressure 

Pressure ratio 

Volumetric flow rate 

Mean blade radius 

Gas constant 

Shaft power 

Specific volume 

Time 

Temperature 
Mean blade velocity 
Fluid velocity 
Flow rate 
Density 

Specific heat ratio 

Efficiency 

Torque 

Change 

Suction line 

Inducer 

Inlet 


Units 

rpm 

psi 

ft 

psia 


gpm 

in. 

ft/°R 

Hp 

ft^/lb 

sec 

“R 

ft /sec 
ft/sec 
lb /sec 
Ib/ft^ 


ft-lb 


386 



Appendix C 


Subscripts 


TK 

Tank 


mT 

Main turbine 


IT 

Inducer turbine 


m 

Main 


P 

Pump 


e 

Exhaust or discharge 


n 

Index 


Id 

Ideal 


VP 

Vapor 


Superscripts 

Total state 


IV. FORTRAN 

NOMENCLATURE 


MAIN PROGRAM 



Symbol 

Definition 

Units 

AI) 

Suction line flow area 

. 2 

in. 

(COI) 

Inducer turbine isentropic spouting 
velocity 

ft/ sec 

(COM) 

Main turbine isentropic spouting 
velocity 

ft/sec 

(CPM) 

Main turbine constant pressure specific 
heat 

Btu/lb-°R 

(CT) 

Constant 

- 

D) 

Suction line diameter 

ft 

(DHI) 

Inducer head rise 

ft 

(DHM) 

Main pump head rise 

ft 
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Symbol 

Definition 

Units 

(DHNI) 

Inducer normalized head rise 

2 

ft/ rpm 

(DHNM) 

Main pump normalized suction head 

2 

ft/rpm 

(DHTI) 

Inducer turbine enthalpy drop 

Btu/lb 

(DHTII) 

Inducer turbine isentropic enthalpy drop 

Btu/lb 

(DHTM) 

Main turbine enthalpy drop 

Btu/lb 

(DPI) 

Inducer pressure rise 

psi 

(DPM) 

Main pump pressure rise 

psi 

(DTIME) 

Incremental time change 

sec 

(EATPI) 

Inducer efficiency 

- 

(EATPM) 

Main pump efficiency 

- 

(EATTI) 

Inducer turbine efficiency 

- 

(EATTM) 

Main turbine efficiency 

- 

(FPI) 

Inducer turbine flow parameter 

- 

(FPM) 

Main turbine flow parameter 

- 

FRI) 

Suction pipe friction coefficient 

- 

(GAMM) 

Main turbine specific heat ratio 

- 

II) 

Inducer rotating assembly moment of 
inertia 

2 

in. -lb-sec 

IM) 

Main rotating asseiribly moment of 
inertia 

• IK 2 

in. -lb-sec 

(NI, NIFIN) 

Inducer shaft speed 

rpm 

NM 

Main shaft speed 

rpm 

(NPSHI) 

Inducer net positive suction head 

ft 

(NPSHM) 

Main pump net positive suction pressure 

ft 

(NPSNI) 

Inducer normalized suction head 

ft/ rpm^ 
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Symbol 

Definition 

Units 

(NPSNM) 

Normalized net positive suction pressure 

ft/rpm^ 

(NPSPI) 

Inducer net positive suction pressure 

psl 

(NPSPM) 

Main pump net positive suction pressure 

psi 

PII, P2) 

Inducer inlet pressure 

psia 

(PMI, PMIF) 

Main pump inlet pressure 

psla 

(PRI) 

Inducer turbine pressure ratio" 

- 

(PRM, PRMF) 

Main turbine pressure ratio 

- 

(PTEI) 

Inducer turbine static exhaust pressure 

psla 

(PTII) 

Inducer inlet total pressure 

psia 

PTK, PI) 

Tank pressure 

psia 

(PTME) 

Pump discharge total pressure 

psia 

(PTTEM) 

Main turbine exhaust pressure 

psia 

(PTTII) 

Inducer turbine inlet total pressure 

psia 

PTTIM 

Main turbine inlet total pressure 

psia 

(PVPII) 

Inducer inlet vapor pressure 

psia 

(PVPMI) 

Main pump inlet vapor pressure 

psi 

(QII) 

Inducer inlet volumetric flow rate 

gpm 

(QMI) 

Main pump inlet volumetric flow rate 

gpm 

(QNI) 

Inducer normalized flow rate 

gal/ rev 

QNM) 

Main pump normalized flow rate 

gal/ rev 

(SHPAV) 

Arithmetic average of inducer and inducer 
turbine power 

hp 

(SHPPI, SHPIF) 

Inducer shaft power 

hp 

(SHPPM) 

Main pump shaft power 

hp 
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Symbol Definition Units 

(SHPTI) Inducer turbine shaft power hp 

(SHPTM) Main turbine shaft power hp 

(SLOPl) Finite rate of change of main turbine lb /sec 

flow rate with main turbine pressure 
ratio 

(SL0P2) Finite rate of change of inducer turbine Ib/sec 

flow rate with main turbine pressure 
ratio 

(SLOPS) Finite rate of change of inducer power hp 

with speed rpm 

(SL0P4) Finite rate of change of Inducer turbine hp 

-power with speed rpm 

(SOV) Sonic velocity in suction line ft/sec 

(SVII) Inducer inlet specific volume 

3 

(SVMI) Main pump inlet specific volume ft /lb 

TIME) Time sec 

TMINT) Initial time sec 

(TORPI) Inducer torque Ib-ft 

(TORPM) Main pump torque Ib-ft 

(TORTI) Inducer turbine torque Ib-ft 

(TORTM) Main turbine torque Ib-ft 

TPII) Inducer inlet fluid temperature °R 

(TPMI) Main pump inlet fluid temperature °R 

(TTEM) Main turbine exhaust temperature °R 

(TTEG, TTEI) Inducer turbine exhaust gas temperature °R 

(TTII) Inducer turbine inlet temperature “R 

TTIM) Main turbine inlet temperature 
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Symbol 

Definition 

Units 

(UCOI) 

Inducer turbine velocity ratio 

- 

(UI) 

Inducer turbine mean blade speed 

ft/sec 

(UM) 

Main turbine mean blade speed 

ft/sec 

(Wl) 

Tank out weight flow rate 

lb /sec 

(WP, W2) 

Pump weight flow rate 

lb /sec 

(WTI, WTIF) 

Inducer turbine flow rate 

Ib/sec 

(WTM, WTMF) 

Main turbine flow rate 

Ib/sec 

XLINE) 

Suction pipe length 

ft 

XLOSS) 

Exhaust system loss coefficient 



) Designates input value 
( ) Designates computed value 

NOTE: Only the FORTRAN symbols of the MAIN program are shown. Those symbols 

appearing in the subprograms are dummy ones. 
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